;;;; Generated on 5/21/2019 at 13:37:10 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%ZLANHF %ZLANHF %%ZLANHP %ZLANHP %%ZLANHS %ZLANHS
  %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB
  %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR
  %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE
  %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0
  %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5
  %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V
  %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG
  %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY
  %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2
  %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT
  %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR
  %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF
  %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK
  %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD
  %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUU2 %ZLAUU2
  %%ZLAUUM %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF
  %ZPBSTF %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF
  %%ZPBTRS %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON
  %ZPOCON %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX
  %ZPORFSX %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2
  %%ZPOTRF %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS
  %%ZPPCON %ZPPCON %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX
  %ZPPSVX %%ZPPTRF %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2
  %%ZPSTRF %ZPSTRF %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV
  %ZPTSV %%ZPTSVX %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2
  %%ZROT %ZROT %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS
  %%ZSPSV %ZSPSV %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS
  %ZSPTRS %%ZSTEDC %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR
  %%ZSTEQR %ZSTEQR %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK
  %ZSYCON_ROOK %%ZSYCONV %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK
  %ZSYCONVF_ROOK %%ZSYEQUB %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS
  %ZSYRFS %%ZSYRFSX %ZSYRFSX %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA
  %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK
  %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2
  %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF
  %%ZSYTRF_AA %ZSYTRF_AA %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK
  %ZSYTRF_RK %%ZSYTRF_ROOK %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2
  %%ZSYTRI2X %ZSYTRI2X %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X
  %%ZSYTRI_ROOK %ZSYTRI_ROOK %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3
  %ZSYTRS_3 %%ZSYTRS_AA %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE
  %%ZSYTRS_ROOK %ZSYTRS_ROOK %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS
  %%ZTFSM %ZTFSM %%ZTFTRI %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC
  %ZTGEVC %%ZTGEX2 %ZTGEX2 %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA
  %%ZTGSNA %ZTGSNA %%ZTGSY2 %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT
  %ZTPLQT %%ZTPLQT2 %ZTPLQT2 %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT
  %ZTPQRT %%ZTPQRT2 %ZTPQRT2 %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI
  %%ZTPTRS %ZTPTRS %%ZTPTTF %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC
  %ZTREVC %%ZTREVC3 %ZTREVC3 %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN
  %%ZTRSNA %ZTRSNA %%ZTRSYL %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS
  %ZTRTRS %%ZTRTTF %ZTRTTF %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB
  %%ZUNBDB1 %ZUNBDB1 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4
  %%ZUNBDB5 %ZUNBDB5 %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1
  %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR
  %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR
  %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ %%ZUNGTR %ZUNGTR %%ZUNM22 %ZUNM22 %%ZUNM2L
  %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 %ZUNML2
  %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 %%ZUNMR3
  %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR %ZUPGTR
  %%ZUPMTR %ZUPMTR))

(CFFI:DEFCFUN ("zlanhf_" %%ZLANHF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20599 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20599 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20600 A) (WORK-REF20601 WORK))
      (%%ZLANHF NORM TRANSR UPLO N-REF20599 A-REF20600 WORK-REF20601))))

(CFFI:DEFCFUN ("zlanhp_" %%ZLANHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20604 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20604 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20605 AP)
                                            (WORK-REF20606 WORK))
      (%%ZLANHP NORM UPLO N-REF20604 AP-REF20605 WORK-REF20606))))

(CFFI:DEFCFUN ("zlanhs_" %%ZLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20608 ':INT32) (LDA-REF20610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20608 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20610 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20609 A) (WORK-REF20611 WORK))
      (%%ZLANHS NORM N-REF20608 A-REF20609 LDA-REF20610 WORK-REF20611))))

(CFFI:DEFCFUN ("zlanht_" %%ZLANHT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %ZLANHT (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20613 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20614 D) (E-REF20615 E))
      (%%ZLANHT NORM N-REF20613 D-REF20614 E-REF20615))))

(CFFI:DEFCFUN ("zlansb_" %%ZLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20618 ':INT32) (K-REF20619 ':INT32)
                              (LDAB-REF20621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20619 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20621 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20620 AB)
                                            (WORK-REF20622 WORK))
      (%%ZLANSB NORM UPLO N-REF20618 K-REF20619 AB-REF20620 LDAB-REF20621
                WORK-REF20622))))

(CFFI:DEFCFUN ("zlansp_" %%ZLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20625 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20625 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20626 AP)
                                            (WORK-REF20627 WORK))
      (%%ZLANSP NORM UPLO N-REF20625 AP-REF20626 WORK-REF20627))))

(CFFI:DEFCFUN ("zlansy_" %%ZLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20630 ':INT32) (LDA-REF20632 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20630 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20632 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20631 A) (WORK-REF20633 WORK))
      (%%ZLANSY NORM UPLO N-REF20630 A-REF20631 LDA-REF20632 WORK-REF20633))))

(CFFI:DEFCFUN ("zlantb_" %%ZLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20637 ':INT32) (K-REF20638 ':INT32)
                              (LDAB-REF20640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20637 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20638 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20640 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20639 AB)
                                            (WORK-REF20641 WORK))
      (%%ZLANTB NORM UPLO DIAG N-REF20637 K-REF20638 AB-REF20639 LDAB-REF20640
                WORK-REF20641))))

(CFFI:DEFCFUN ("zlantp_" %%ZLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20645 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20645 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20646 AP)
                                            (WORK-REF20647 WORK))
      (%%ZLANTP NORM UPLO DIAG N-REF20645 AP-REF20646 WORK-REF20647))))

(CFFI:DEFCFUN ("zlantr_" %%ZLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20651 ':INT32) (N-REF20652 ':INT32)
                              (LDA-REF20654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20651 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20652 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20654 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20653 A) (WORK-REF20655 WORK))
      (%%ZLANTR NORM UPLO DIAG M-REF20651 N-REF20652 A-REF20653 LDA-REF20654
                WORK-REF20655))))

(CFFI:DEFCFUN ("zlapll_" %%ZLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %ZLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20656 ':INT32) (INCX-REF20658 ':INT32)
                              (INCY-REF20660 ':INT32) (SSMIN-REF20661 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20656 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20658 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20660 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF20661 :DOUBLE) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20657 X) (Y-REF20659 Y))
      (%%ZLAPLL N-REF20656 X-REF20657 INCX-REF20658 Y-REF20659 INCY-REF20660
                SSMIN-REF20661))))

(CFFI:DEFCFUN ("zlapmr_" %%ZLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %ZLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20662 ':INT32) (M-REF20663 ':INT32)
                              (N-REF20664 ':INT32) (LDX-REF20666 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20662 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20663 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20666 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20665 X) (K-REF20667 K))
      (%%ZLAPMR FORWRD-REF20662 M-REF20663 N-REF20664 X-REF20665 LDX-REF20666
                K-REF20667))))

(CFFI:DEFCFUN ("zlapmt_" %%ZLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %ZLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF20668 ':INT32) (M-REF20669 ':INT32)
                              (N-REF20670 ':INT32) (LDX-REF20672 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF20668 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20669 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF20672 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20671 X) (K-REF20673 K))
      (%%ZLAPMT FORWRD-REF20668 M-REF20669 N-REF20670 X-REF20671 LDX-REF20672
                K-REF20673))))

(CFFI:DEFCFUN ("zlaqgb_" %%ZLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20674 ':INT32) (N-REF20675 ':INT32)
                              (KL-REF20676 ':INT32) (KU-REF20677 ':INT32)
                              (LDAB-REF20679 ':INT32)
                              (ROWCND-REF20682 ':DOUBLE)
                              (COLCND-REF20683 ':DOUBLE)
                              (AMAX-REF20684 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20674 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20675 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF20676 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF20677 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20679 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20682 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20683 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20684 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20678 AB) (R-REF20680 R)
                                            (C-REF20681 C))
      (%%ZLAQGB M-REF20674 N-REF20675 KL-REF20676 KU-REF20677 AB-REF20678
                LDAB-REF20679 R-REF20680 C-REF20681 ROWCND-REF20682
                COLCND-REF20683 AMAX-REF20684 EQUED))))

(CFFI:DEFCFUN ("zlaqge_" %%ZLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20686 ':INT32) (N-REF20687 ':INT32)
                              (LDA-REF20689 ':INT32) (ROWCND-REF20692 ':DOUBLE)
                              (COLCND-REF20693 ':DOUBLE)
                              (AMAX-REF20694 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20686 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20689 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF20692 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF20693 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20694 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20688 A) (R-REF20690 R)
                                            (C-REF20691 C))
      (%%ZLAQGE M-REF20686 N-REF20687 A-REF20688 LDA-REF20689 R-REF20690
                C-REF20691 ROWCND-REF20692 COLCND-REF20693 AMAX-REF20694
                EQUED))))

(CFFI:DEFCFUN ("zlaqhb_" %%ZLAQHB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20697 ':INT32) (KD-REF20698 ':INT32)
                              (LDAB-REF20700 ':INT32) (SCOND-REF20702 ':DOUBLE)
                              (AMAX-REF20703 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20698 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20700 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20702 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20703 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20699 AB) (S-REF20701 S))
      (%%ZLAQHB UPLO N-REF20697 KD-REF20698 AB-REF20699 LDAB-REF20700
                S-REF20701 SCOND-REF20702 AMAX-REF20703 EQUED))))

(CFFI:DEFCFUN ("zlaqhe_" %%ZLAQHE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHE (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20706 ':INT32) (LDA-REF20708 ':INT32)
                              (SCOND-REF20710 ':DOUBLE)
                              (AMAX-REF20711 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20708 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20710 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20711 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20707 A) (S-REF20709 S))
      (%%ZLAQHE UPLO N-REF20706 A-REF20707 LDA-REF20708 S-REF20709
                SCOND-REF20710 AMAX-REF20711 EQUED))))

(CFFI:DEFCFUN ("zlaqhp_" %%ZLAQHP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQHP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20714 ':INT32) (SCOND-REF20717 ':DOUBLE)
                              (AMAX-REF20718 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20717 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20718 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20715 AP) (S-REF20716 S))
      (%%ZLAQHP UPLO N-REF20714 AP-REF20715 S-REF20716 SCOND-REF20717
                AMAX-REF20718 EQUED))))

(CFFI:DEFCFUN ("zlaqp2_" %%ZLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20720 ':INT32) (N-REF20721 ':INT32)
                              (OFFSET-REF20722 ':INT32) (LDA-REF20724 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20720 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20722 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20724 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20723 A) (JPVT-REF20725 JPVT)
                                            (TAU-REF20726 TAU)
                                            (VN1-REF20727 VN1)
                                            (VN2-REF20728 VN2)
                                            (WORK-REF20729 WORK))
      (%%ZLAQP2 M-REF20720 N-REF20721 OFFSET-REF20722 A-REF20723 LDA-REF20724
                JPVT-REF20725 TAU-REF20726 VN1-REF20727 VN2-REF20728
                WORK-REF20729))))

(CFFI:DEFCFUN ("zlaqps_" %%ZLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %ZLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20730 ':INT32) (N-REF20731 ':INT32)
                              (OFFSET-REF20732 ':INT32) (NB-REF20733 ':INT32)
                              (KB-REF20734 ':INT32) (LDA-REF20736 ':INT32)
                              (LDF-REF20743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20730 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF20732 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF20733 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF20734 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20736 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF20743 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20735 A) (JPVT-REF20737 JPVT)
                                            (TAU-REF20738 TAU)
                                            (VN1-REF20739 VN1)
                                            (VN2-REF20740 VN2)
                                            (AUXV-REF20741 AUXV) (F-REF20742 F))
      (%%ZLAQPS M-REF20730 N-REF20731 OFFSET-REF20732 NB-REF20733 KB-REF20734
                A-REF20735 LDA-REF20736 JPVT-REF20737 TAU-REF20738 VN1-REF20739
                VN2-REF20740 AUXV-REF20741 F-REF20742 LDF-REF20743))))

(CFFI:DEFCFUN ("zlaqr0_" %%ZLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAQR0
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20744 ':INT32) (WANTZ-REF20745 ':INT32)
                              (N-REF20746 ':INT32) (ILO-REF20747 ':INT32)
                              (IHI-REF20748 ':INT32) (LDH-REF20750 ':INT32)
                              (ILOZ-REF20752 ':INT32) (IHIZ-REF20753 ':INT32)
                              (LDZ-REF20755 ':INT32) (LWORK-REF20757 ':INT32)
                              (INFO-REF20758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20744 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20745 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20746 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20747 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20748 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20750 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20752 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20753 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20755 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20757 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20758 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20749 H) (W-REF20751 W)
                                            (Z-REF20754 Z) (WORK-REF20756 WORK))
      (%%ZLAQR0 WANTT-REF20744 WANTZ-REF20745 N-REF20746 ILO-REF20747
                IHI-REF20748 H-REF20749 LDH-REF20750 W-REF20751 ILOZ-REF20752
                IHIZ-REF20753 Z-REF20754 LDZ-REF20755 WORK-REF20756
                LWORK-REF20757 INFO-REF20758))))

(CFFI:DEFCFUN ("zlaqr1_" %%ZLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (S1 :POINTER)
  (S2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %ZLAQR1 (N H LDH S1 S2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20759 ':INT32) (LDH-REF20761 ':INT32)
                              (S1-REF20762
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (S2-REF20763
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20761 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S1-REF20762
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S1)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S1)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S2-REF20763
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S2)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S2)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20760 H) (V-REF20764 V))
      (%%ZLAQR1 N-REF20759 H-REF20760 LDH-REF20761 S1-REF20762 S2-REF20763
                V-REF20764))))

(CFFI:DEFCFUN ("zlaqr2_" %%ZLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20765 ':INT32) (WANTZ-REF20766 ':INT32)
                              (N-REF20767 ':INT32) (KTOP-REF20768 ':INT32)
                              (KBOT-REF20769 ':INT32) (NW-REF20770 ':INT32)
                              (LDH-REF20772 ':INT32) (ILOZ-REF20773 ':INT32)
                              (IHIZ-REF20774 ':INT32) (LDZ-REF20776 ':INT32)
                              (NS-REF20777 ':INT32) (ND-REF20778 ':INT32)
                              (LDV-REF20781 ':INT32) (NH-REF20782 ':INT32)
                              (LDT-REF20784 ':INT32) (NV-REF20785 ':INT32)
                              (LDWV-REF20787 ':INT32) (LWORK-REF20789 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20765 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20766 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20768 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20769 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20770 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20772 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20773 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20774 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20776 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20777 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20778 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20781 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20782 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20784 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20785 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20787 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20789 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20771 H) (Z-REF20775 Z)
                                            (SH-REF20779 SH) (V-REF20780 V)
                                            (T-REF20783 T) (WV-REF20786 WV)
                                            (WORK-REF20788 WORK))
      (%%ZLAQR2 WANTT-REF20765 WANTZ-REF20766 N-REF20767 KTOP-REF20768
                KBOT-REF20769 NW-REF20770 H-REF20771 LDH-REF20772 ILOZ-REF20773
                IHIZ-REF20774 Z-REF20775 LDZ-REF20776 NS-REF20777 ND-REF20778
                SH-REF20779 V-REF20780 LDV-REF20781 NH-REF20782 T-REF20783
                LDT-REF20784 NV-REF20785 WV-REF20786 LDWV-REF20787
                WORK-REF20788 LWORK-REF20789))))

(CFFI:DEFCFUN ("zlaqr3_" %%ZLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SH :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %ZLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V
                    LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        SH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20790 ':INT32) (WANTZ-REF20791 ':INT32)
                              (N-REF20792 ':INT32) (KTOP-REF20793 ':INT32)
                              (KBOT-REF20794 ':INT32) (NW-REF20795 ':INT32)
                              (LDH-REF20797 ':INT32) (ILOZ-REF20798 ':INT32)
                              (IHIZ-REF20799 ':INT32) (LDZ-REF20801 ':INT32)
                              (NS-REF20802 ':INT32) (ND-REF20803 ':INT32)
                              (LDV-REF20806 ':INT32) (NH-REF20807 ':INT32)
                              (LDT-REF20809 ':INT32) (NV-REF20810 ':INT32)
                              (LDWV-REF20812 ':INT32) (LWORK-REF20814 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20790 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20791 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20792 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20793 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20794 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF20795 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20797 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20798 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20799 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20801 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF20802 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF20803 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20806 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20807 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20809 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20810 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20812 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20814 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20796 H) (Z-REF20800 Z)
                                            (SH-REF20804 SH) (V-REF20805 V)
                                            (T-REF20808 T) (WV-REF20811 WV)
                                            (WORK-REF20813 WORK))
      (%%ZLAQR3 WANTT-REF20790 WANTZ-REF20791 N-REF20792 KTOP-REF20793
                KBOT-REF20794 NW-REF20795 H-REF20796 LDH-REF20797 ILOZ-REF20798
                IHIZ-REF20799 Z-REF20800 LDZ-REF20801 NS-REF20802 ND-REF20803
                SH-REF20804 V-REF20805 LDV-REF20806 NH-REF20807 T-REF20808
                LDT-REF20809 NV-REF20810 WV-REF20811 LDWV-REF20812
                WORK-REF20813 LWORK-REF20814))))

(CFFI:DEFCFUN ("zlaqr4_" %%ZLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (W :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAQR4
                   (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20815 ':INT32) (WANTZ-REF20816 ':INT32)
                              (N-REF20817 ':INT32) (ILO-REF20818 ':INT32)
                              (IHI-REF20819 ':INT32) (LDH-REF20821 ':INT32)
                              (ILOZ-REF20823 ':INT32) (IHIZ-REF20824 ':INT32)
                              (LDZ-REF20826 ':INT32) (LWORK-REF20828 ':INT32)
                              (INFO-REF20829 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20815 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20816 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF20818 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF20819 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20821 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20823 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20824 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20826 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF20828 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF20829 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF20820 H) (W-REF20822 W)
                                            (Z-REF20825 Z) (WORK-REF20827 WORK))
      (%%ZLAQR4 WANTT-REF20815 WANTZ-REF20816 N-REF20817 ILO-REF20818
                IHI-REF20819 H-REF20820 LDH-REF20821 W-REF20822 ILOZ-REF20823
                IHIZ-REF20824 Z-REF20825 LDZ-REF20826 WORK-REF20827
                LWORK-REF20828 INFO-REF20829))))

(CFFI:DEFCFUN ("zlaqr5_" %%ZLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (S :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %ZLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z
                    LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF20830 ':INT32) (WANTZ-REF20831 ':INT32)
                              (KACC22-REF20832 ':INT32) (N-REF20833 ':INT32)
                              (KTOP-REF20834 ':INT32) (KBOT-REF20835 ':INT32)
                              (NSHFTS-REF20836 ':INT32) (LDH-REF20839 ':INT32)
                              (ILOZ-REF20840 ':INT32) (IHIZ-REF20841 ':INT32)
                              (LDZ-REF20843 ':INT32) (LDV-REF20845 ':INT32)
                              (LDU-REF20847 ':INT32) (NV-REF20848 ':INT32)
                              (LDWV-REF20850 ':INT32) (NH-REF20851 ':INT32)
                              (LDWH-REF20853 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF20830 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF20831 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF20832 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF20834 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF20835 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF20836 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF20839 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF20840 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF20841 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF20843 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20845 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF20847 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF20848 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF20850 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF20851 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF20853 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF20837 S) (H-REF20838 H)
                                            (Z-REF20842 Z) (V-REF20844 V)
                                            (U-REF20846 U) (WV-REF20849 WV)
                                            (WH-REF20852 WH))
      (%%ZLAQR5 WANTT-REF20830 WANTZ-REF20831 KACC22-REF20832 N-REF20833
                KTOP-REF20834 KBOT-REF20835 NSHFTS-REF20836 S-REF20837
                H-REF20838 LDH-REF20839 ILOZ-REF20840 IHIZ-REF20841 Z-REF20842
                LDZ-REF20843 V-REF20844 LDV-REF20845 U-REF20846 LDU-REF20847
                NV-REF20848 WV-REF20849 LDWV-REF20850 NH-REF20851 WH-REF20852
                LDWH-REF20853))))

(CFFI:DEFCFUN ("zlaqsb_" %%ZLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20855 ':INT32) (KD-REF20856 ':INT32)
                              (LDAB-REF20858 ':INT32) (SCOND-REF20860 ':DOUBLE)
                              (AMAX-REF20861 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20855 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF20856 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF20858 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20860 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20861 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF20857 AB) (S-REF20859 S))
      (%%ZLAQSB UPLO N-REF20855 KD-REF20856 AB-REF20857 LDAB-REF20858
                S-REF20859 SCOND-REF20860 AMAX-REF20861 EQUED))))

(CFFI:DEFCFUN ("zlaqsp_" %%ZLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20864 ':INT32) (SCOND-REF20867 ':DOUBLE)
                              (AMAX-REF20868 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20864 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20867 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20868 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF20865 AP) (S-REF20866 S))
      (%%ZLAQSP UPLO N-REF20864 AP-REF20865 S-REF20866 SCOND-REF20867
                AMAX-REF20868 EQUED))))

(CFFI:DEFCFUN ("zlaqsy_" %%ZLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %ZLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20871 ':INT32) (LDA-REF20873 ':INT32)
                              (SCOND-REF20875 ':DOUBLE)
                              (AMAX-REF20876 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20873 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF20875 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF20876 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20872 A) (S-REF20874 S))
      (%%ZLAQSY UPLO N-REF20871 A-REF20872 LDA-REF20873 S-REF20874
                SCOND-REF20875 AMAX-REF20876 EQUED))))

(CFFI:DEFCFUN ("zlar1v_" %%ZLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20878 ':INT32) (B1-REF20879 ':INT32)
                              (BN-REF20880 ':INT32) (LAMBDA-REF20881 ':DOUBLE)
                              (PIVMIN-REF20886 ':DOUBLE)
                              (GAPTOL-REF20887 ':DOUBLE)
                              (WANTNC-REF20889 ':INT32)
                              (NEGCNT-REF20890 ':INT32) (ZTZ-REF20891 ':DOUBLE)
                              (MINGMA-REF20892 ':DOUBLE) (R-REF20893 ':INT32)
                              (NRMINV-REF20895 ':DOUBLE)
                              (RESID-REF20896 ':DOUBLE)
                              (RQCORR-REF20897 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20878 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF20879 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF20880 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF20881 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20886 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF20887 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF20889 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF20890 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF20891 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF20892 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF20893 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF20895 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF20896 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF20897 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20882 D) (L-REF20883 L)
                                            (LD-REF20884 LD) (LLD-REF20885 LLD)
                                            (Z-REF20888 Z)
                                            (ISUPPZ-REF20894 ISUPPZ)
                                            (WORK-REF20898 WORK))
      (%%ZLAR1V N-REF20878 B1-REF20879 BN-REF20880 LAMBDA-REF20881 D-REF20882
                L-REF20883 LD-REF20884 LLD-REF20885 PIVMIN-REF20886
                GAPTOL-REF20887 Z-REF20888 WANTNC-REF20889 NEGCNT-REF20890
                ZTZ-REF20891 MINGMA-REF20892 R-REF20893 ISUPPZ-REF20894
                NRMINV-REF20895 RESID-REF20896 RQCORR-REF20897 WORK-REF20898))))

(CFFI:DEFCFUN ("zlar2v_" %%ZLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20899 ':INT32) (INCX-REF20903 ':INT32)
                              (INCC-REF20906 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20899 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20903 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20906 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20900 X) (Y-REF20901 Y)
                                            (Z-REF20902 Z) (C-REF20904 C)
                                            (S-REF20905 S))
      (%%ZLAR2V N-REF20899 X-REF20900 Y-REF20901 Z-REF20902 INCX-REF20903
                C-REF20904 S-REF20905 INCC-REF20906))))

(CFFI:DEFCFUN ("zlarcm_" %%ZLARCM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (RWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARCM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20907 ':INT32) (N-REF20908 ':INT32)
                              (LDA-REF20910 ':INT32) (LDB-REF20912 ':INT32)
                              (LDC-REF20914 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20907 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF20910 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF20912 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20914 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF20909 A) (B-REF20911 B)
                                            (C-REF20913 C)
                                            (RWORK-REF20915 RWORK))
      (%%ZLARCM M-REF20907 N-REF20908 A-REF20909 LDA-REF20910 B-REF20911
                LDB-REF20912 C-REF20913 LDC-REF20914 RWORK-REF20915))))

(CFFI:DEFCFUN ("zlarf_" %%ZLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20917 ':INT32) (N-REF20918 ':INT32)
                              (INCV-REF20920 ':INT32)
                              (TAU-REF20921
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20917 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20918 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20920 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20921
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20923 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20919 V) (C-REF20922 C)
                                            (WORK-REF20924 WORK))
      (%%ZLARF SIDE M-REF20917 N-REF20918 V-REF20919 INCV-REF20920 TAU-REF20921
               C-REF20922 LDC-REF20923 WORK-REF20924))))

(CFFI:DEFCFUN ("zlarfb_" %%ZLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20929 ':INT32) (N-REF20930 ':INT32)
                              (K-REF20931 ':INT32) (LDV-REF20933 ':INT32)
                              (LDT-REF20935 ':INT32) (LDC-REF20937 ':INT32)
                              (LDWORK-REF20939 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20929 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20931 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20933 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20935 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20937 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF20939 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20932 V) (T-REF20934 T)
                                            (C-REF20936 C) (WORK-REF20938 WORK))
      (%%ZLARFB SIDE TRANS DIRECT STOREV M-REF20929 N-REF20930 K-REF20931
                V-REF20932 LDV-REF20933 T-REF20934 LDT-REF20935 C-REF20936
                LDC-REF20937 WORK-REF20938 LDWORK-REF20939))))

(CFFI:DEFCFUN ("zlarfg_" %%ZLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %ZLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20940 ':INT32)
                              (ALPHA-REF20941
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF20943 ':INT32)
                              (TAU-REF20944
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20940 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF20941
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20943 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20944
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20942 X))
      (%%ZLARFG N-REF20940 ALPHA-REF20941 X-REF20942 INCX-REF20943
                TAU-REF20944))))

(CFFI:DEFCFUN ("zlarfgp_" %%ZLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %ZLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20945 ':INT32)
                              (ALPHA-REF20946
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF20948 ':INT32)
                              (TAU-REF20949
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20945 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF20946
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20948 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20949
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20947 X))
      (%%ZLARFGP N-REF20945 ALPHA-REF20946 X-REF20947 INCX-REF20948
                 TAU-REF20949))))

(CFFI:DEFCFUN ("zlarft_" %%ZLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %ZLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20952 ':INT32) (K-REF20953 ':INT32)
                              (LDV-REF20955 ':INT32) (LDT-REF20958 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20952 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF20953 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF20955 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF20958 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20954 V) (TAU-REF20956 TAU)
                                            (T-REF20957 T))
      (%%ZLARFT DIRECT STOREV N-REF20952 K-REF20953 V-REF20954 LDV-REF20955
                TAU-REF20956 T-REF20957 LDT-REF20958))))

(CFFI:DEFCFUN ("zlarfx_" %%ZLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF20960 ':INT32) (N-REF20961 ':INT32)
                              (TAU-REF20963
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20960 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20961 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20963
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20965 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20962 V) (C-REF20964 C)
                                            (WORK-REF20966 WORK))
      (%%ZLARFX SIDE M-REF20960 N-REF20961 V-REF20962 TAU-REF20963 C-REF20964
                LDC-REF20965 WORK-REF20966))))

(CFFI:DEFCFUN ("zlarfy_" %%ZLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20968 ':INT32) (INCV-REF20970 ':INT32)
                              (TAU-REF20971
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF20973 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF20970 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF20971
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF20973 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF20969 V) (C-REF20972 C)
                                            (WORK-REF20974 WORK))
      (%%ZLARFY UPLO N-REF20968 V-REF20969 INCV-REF20970 TAU-REF20971
                C-REF20972 LDC-REF20973 WORK-REF20974))))

(CFFI:DEFCFUN ("zlargv_" %%ZLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20975 ':INT32) (INCX-REF20977 ':INT32)
                              (INCY-REF20979 ':INT32) (INCC-REF20981 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20975 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF20977 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF20979 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF20981 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF20976 X) (Y-REF20978 Y)
                                            (C-REF20980 C))
      (%%ZLARGV N-REF20975 X-REF20976 INCX-REF20977 Y-REF20978 INCY-REF20979
                C-REF20980 INCC-REF20981))))

(CFFI:DEFCFUN ("zlarnv_" %%ZLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %ZLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF20982 ':INT32) (N-REF20984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF20982 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20984 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF20983 ISEED)
                                            (X-REF20985 X))
      (%%ZLARNV IDIST-REF20982 ISEED-REF20983 N-REF20984 X-REF20985))))

(CFFI:DEFCFUN ("zlarrv_" %%ZLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF20986 ':INT32) (VL-REF20987 ':DOUBLE)
                              (VU-REF20988 ':DOUBLE) (PIVMIN-REF20991 ':DOUBLE)
                              (M-REF20993 ':INT32) (DOL-REF20994 ':INT32)
                              (DOU-REF20995 ':INT32) (MINRGP-REF20996 ':DOUBLE)
                              (RTOL1-REF20997 ':DOUBLE)
                              (RTOL2-REF20998 ':DOUBLE) (LDZ-REF21006 ':INT32)
                              (INFO-REF21010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF20986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF20987 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF20988 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF20991 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF20993 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF20994 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF20995 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF20996 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF20997 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF20998 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21006 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF20989 D) (L-REF20990 L)
                                            (ISPLIT-REF20992 ISPLIT)
                                            (W-REF20999 W) (WERR-REF21000 WERR)
                                            (WGAP-REF21001 WGAP)
                                            (IBLOCK-REF21002 IBLOCK)
                                            (INDEXW-REF21003 INDEXW)
                                            (GERS-REF21004 GERS) (Z-REF21005 Z)
                                            (ISUPPZ-REF21007 ISUPPZ)
                                            (WORK-REF21008 WORK)
                                            (IWORK-REF21009 IWORK))
      (%%ZLARRV N-REF20986 VL-REF20987 VU-REF20988 D-REF20989 L-REF20990
                PIVMIN-REF20991 ISPLIT-REF20992 M-REF20993 DOL-REF20994
                DOU-REF20995 MINRGP-REF20996 RTOL1-REF20997 RTOL2-REF20998
                W-REF20999 WERR-REF21000 WGAP-REF21001 IBLOCK-REF21002
                INDEXW-REF21003 GERS-REF21004 Z-REF21005 LDZ-REF21006
                ISUPPZ-REF21007 WORK-REF21008 IWORK-REF21009 INFO-REF21010))))

(CFFI:DEFCFUN ("zlarscl2_" %%ZLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %ZLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21011 ':INT32) (N-REF21012 ':INT32)
                              (LDX-REF21015 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21011 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21015 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21013 D) (X-REF21014 X))
      (%%ZLARSCL2 M-REF21011 N-REF21012 D-REF21013 X-REF21014 LDX-REF21015))))

(CFFI:DEFCFUN ("zlartg_" %%ZLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %ZLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) SN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF21016
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (G-REF21017
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CS-REF21018 ':DOUBLE)
                              (SN-REF21019
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (R-REF21020
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              F-REF21016 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART F)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART F)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              G-REF21017 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART G)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART G)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF21018 :DOUBLE) CS)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              SN-REF21019
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SN)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART SN)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              R-REF21020 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART R)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART R)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLARTG F-REF21016 G-REF21017 CS-REF21018 SN-REF21019 R-REF21020))))

(CFFI:DEFCFUN ("zlartv_" %%ZLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %ZLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21021 ':INT32) (INCX-REF21023 ':INT32)
                              (INCY-REF21025 ':INT32) (INCC-REF21028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21023 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21025 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF21028 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21022 X) (Y-REF21024 Y)
                                            (C-REF21026 C) (S-REF21027 S))
      (%%ZLARTV N-REF21021 X-REF21022 INCX-REF21023 Y-REF21024 INCY-REF21025
                C-REF21026 S-REF21027 INCC-REF21028))))

(CFFI:DEFCFUN ("zlarz_" %%ZLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21030 ':INT32) (N-REF21031 ':INT32)
                              (L-REF21032 ':INT32) (INCV-REF21034 ':INT32)
                              (TAU-REF21035
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF21037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21030 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21032 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF21034 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF21035
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21037 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21033 V) (C-REF21036 C)
                                            (WORK-REF21038 WORK))
      (%%ZLARZ SIDE M-REF21030 N-REF21031 L-REF21032 V-REF21033 INCV-REF21034
               TAU-REF21035 C-REF21036 LDC-REF21037 WORK-REF21038))))

(CFFI:DEFCFUN ("zlarzb_" %%ZLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21043 ':INT32) (N-REF21044 ':INT32)
                              (K-REF21045 ':INT32) (L-REF21046 ':INT32)
                              (LDV-REF21048 ':INT32) (LDT-REF21050 ':INT32)
                              (LDC-REF21052 ':INT32) (LDWORK-REF21054 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21043 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21044 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21045 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21046 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21048 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21050 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF21052 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF21054 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21047 V) (T-REF21049 T)
                                            (C-REF21051 C) (WORK-REF21053 WORK))
      (%%ZLARZB SIDE TRANS DIRECT STOREV M-REF21043 N-REF21044 K-REF21045
                L-REF21046 V-REF21047 LDV-REF21048 T-REF21049 LDT-REF21050
                C-REF21051 LDC-REF21052 WORK-REF21053 LDWORK-REF21054))))

(CFFI:DEFCFUN ("zlarzt_" %%ZLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %ZLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21057 ':INT32) (K-REF21058 ':INT32)
                              (LDV-REF21060 ':INT32) (LDT-REF21063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21057 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF21058 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF21060 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21063 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF21059 V) (TAU-REF21061 TAU)
                                            (T-REF21062 T))
      (%%ZLARZT DIRECT STOREV N-REF21057 K-REF21058 V-REF21059 LDV-REF21060
                TAU-REF21061 T-REF21062 LDT-REF21063))))

(CFFI:DEFCFUN ("zlascl_" %%ZLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF21065 ':INT32) (KU-REF21066 ':INT32)
                              (CFROM-REF21067 ':DOUBLE) (CTO-REF21068 ':DOUBLE)
                              (M-REF21069 ':INT32) (N-REF21070 ':INT32)
                              (LDA-REF21072 ':INT32) (INFO-REF21073 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF21065 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF21066 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF21067 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF21068 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21069 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21070 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21072 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21073 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21071 A))
      (%%ZLASCL TYPE KL-REF21065 KU-REF21066 CFROM-REF21067 CTO-REF21068
                M-REF21069 N-REF21070 A-REF21071 LDA-REF21072 INFO-REF21073))))

(CFFI:DEFCFUN ("zlascl2_" %%ZLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %ZLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21074 ':INT32) (N-REF21075 ':INT32)
                              (LDX-REF21078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21074 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21078 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21076 D) (X-REF21077 X))
      (%%ZLASCL2 M-REF21074 N-REF21075 D-REF21076 X-REF21077 LDX-REF21078))))

(CFFI:DEFCFUN ("zlaset_" %%ZLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21080 ':INT32) (N-REF21081 ':INT32)
                              (ALPHA-REF21082
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (BETA-REF21083
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF21085 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21080 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21081 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21082
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21083
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21085 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21084 A))
      (%%ZLASET UPLO M-REF21080 N-REF21081 ALPHA-REF21082 BETA-REF21083
                A-REF21084 LDA-REF21085))))

(CFFI:DEFCFUN ("zlasr_" %%ZLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21089 ':INT32) (N-REF21090 ':INT32)
                              (LDA-REF21094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21089 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21094 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF21091 C) (S-REF21092 S)
                                            (A-REF21093 A))
      (%%ZLASR SIDE PIVOT DIRECT M-REF21089 N-REF21090 C-REF21091 S-REF21092
               A-REF21093 LDA-REF21094))))

(CFFI:DEFCFUN ("zlassq_" %%ZLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %ZLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21095 ':INT32) (INCX-REF21097 ':INT32)
                              (SCALE-REF21098 ':DOUBLE)
                              (SUMSQ-REF21099 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21095 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21097 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21098 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF21099 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21096 X))
      (%%ZLASSQ N-REF21095 X-REF21096 INCX-REF21097 SCALE-REF21098
                SUMSQ-REF21099))))

(CFFI:DEFCFUN ("zlaswlq_" %%ZLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21100 ':INT32) (N-REF21101 ':INT32)
                              (MB-REF21102 ':INT32) (NB-REF21103 ':INT32)
                              (LDA-REF21105 ':INT32) (LDT-REF21107 ':INT32)
                              (LWORK-REF21109 ':INT32) (INFO-REF21110 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21100 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21102 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21103 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21105 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21107 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21109 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21110 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21104 A) (T-REF21106 T)
                                            (WORK-REF21108 WORK))
      (%%ZLASWLQ M-REF21100 N-REF21101 MB-REF21102 NB-REF21103 A-REF21104
                 LDA-REF21105 T-REF21106 LDT-REF21107 WORK-REF21108
                 LWORK-REF21109 INFO-REF21110))))

(CFFI:DEFCFUN ("zlaswp_" %%ZLASWP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (K1 :POINTER)
  (K2 :POINTER)
  (IPIV :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21111 ':INT32) (LDA-REF21113 ':INT32)
                              (K1-REF21114 ':INT32) (K2-REF21115 ':INT32)
                              (INCX-REF21117 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21111 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21113 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF21114 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF21115 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21117 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21112 A) (IPIV-REF21116 IPIV))
      (%%ZLASWP N-REF21111 A-REF21112 LDA-REF21113 K1-REF21114 K2-REF21115
                IPIV-REF21116 INCX-REF21117))))

(CFFI:DEFCFUN ("zlasyf_" %%ZLASYF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21119 ':INT32) (NB-REF21120 ':INT32)
                              (KB-REF21121 ':INT32) (LDA-REF21123 ':INT32)
                              (LDW-REF21126 ':INT32) (INFO-REF21127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21120 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21121 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21123 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21126 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21122 A) (IPIV-REF21124 IPIV)
                                            (W-REF21125 W))
      (%%ZLASYF UPLO N-REF21119 NB-REF21120 KB-REF21121 A-REF21122 LDA-REF21123
                IPIV-REF21124 W-REF21125 LDW-REF21126 INFO-REF21127))))

(CFFI:DEFCFUN ("zlasyf_aa_" %%ZLASYF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (J1 :POINTER)
  (M :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF21129 ':INT32) (M-REF21130 ':INT32)
                              (NB-REF21131 ':INT32) (LDA-REF21133 ':INT32)
                              (LDH-REF21136 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF21129 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21130 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21131 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21133 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF21136 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21132 A) (IPIV-REF21134 IPIV)
                                            (H-REF21135 H) (WORK-REF21137 WORK))
      (%%ZLASYF_AA UPLO J1-REF21129 M-REF21130 NB-REF21131 A-REF21132
                   LDA-REF21133 IPIV-REF21134 H-REF21135 LDH-REF21136
                   WORK-REF21137))))

(CFFI:DEFCFUN ("zlasyf_rk_" %%ZLASYF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21139 ':INT32) (NB-REF21140 ':INT32)
                              (KB-REF21141 ':INT32) (LDA-REF21143 ':INT32)
                              (LDW-REF21147 ':INT32) (INFO-REF21148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21140 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21141 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21143 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21147 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21148 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21142 A) (E-REF21144 E)
                                            (IPIV-REF21145 IPIV) (W-REF21146 W))
      (%%ZLASYF_RK UPLO N-REF21139 NB-REF21140 KB-REF21141 A-REF21142
                   LDA-REF21143 E-REF21144 IPIV-REF21145 W-REF21146
                   LDW-REF21147 INFO-REF21148))))

(CFFI:DEFCFUN ("zlasyf_rook_" %%ZLASYF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (W :POINTER)
  (LDW :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21150 ':INT32) (NB-REF21151 ':INT32)
                              (KB-REF21152 ':INT32) (LDA-REF21154 ':INT32)
                              (LDW-REF21157 ':INT32) (INFO-REF21158 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21150 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21151 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF21152 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21154 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21157 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21158 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21153 A) (IPIV-REF21155 IPIV)
                                            (W-REF21156 W))
      (%%ZLASYF_ROOK UPLO N-REF21150 NB-REF21151 KB-REF21152 A-REF21153
                     LDA-REF21154 IPIV-REF21155 W-REF21156 LDW-REF21157
                     INFO-REF21158))))

(CFFI:DEFCFUN ("zlat2c_" %%ZLAT2C :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAT2C (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAT2C)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21160 ':INT32) (LDA-REF21162 ':INT32)
                              (LDSA-REF21164 ':INT32) (INFO-REF21165 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21160 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21162 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF21164 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21165 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21161 A) (SA-REF21163 SA))
      (%%ZLAT2C UPLO N-REF21160 A-REF21161 LDA-REF21162 SA-REF21163
                LDSA-REF21164 INFO-REF21165))))

(CFFI:DEFCFUN ("zlatbs_" %%ZLATBS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATBS
                   (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATBS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21170 ':INT32) (KD-REF21171 ':INT32)
                              (LDAB-REF21173 ':INT32) (SCALE-REF21175 ':DOUBLE)
                              (INFO-REF21177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21171 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21173 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21175 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21177 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21172 AB) (X-REF21174 X)
                                            (CNORM-REF21176 CNORM))
      (%%ZLATBS UPLO TRANS DIAG NORMIN N-REF21170 KD-REF21171 AB-REF21172
                LDAB-REF21173 X-REF21174 SCALE-REF21175 CNORM-REF21176
                INFO-REF21177))))

(CFFI:DEFCFUN ("zlatdf_" %%ZLATDF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (N :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (RHS :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER))

(COMMON-LISP:DEFUN %ZLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATDF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        RHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF21178 ':INT32) (N-REF21179 ':INT32)
                              (LDZ-REF21181 ':INT32) (RDSUM-REF21183 ':DOUBLE)
                              (RDSCAL-REF21184 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF21178 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21179 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21181 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF21183 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF21184 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF21180 Z) (RHS-REF21182 RHS)
                                            (IPIV-REF21185 IPIV)
                                            (JPIV-REF21186 JPIV))
      (%%ZLATDF IJOB-REF21178 N-REF21179 Z-REF21180 LDZ-REF21181 RHS-REF21182
                RDSUM-REF21183 RDSCAL-REF21184 IPIV-REF21185 JPIV-REF21186))))

(CFFI:DEFCFUN ("zlatps_" %%ZLATPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATPS (UPLO TRANS DIAG NORMIN N AP X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATPS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21191 ':INT32) (SCALE-REF21194 ':DOUBLE)
                              (INFO-REF21196 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21191 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21194 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21196 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21192 AP) (X-REF21193 X)
                                            (CNORM-REF21195 CNORM))
      (%%ZLATPS UPLO TRANS DIAG NORMIN N-REF21191 AP-REF21192 X-REF21193
                SCALE-REF21194 CNORM-REF21195 INFO-REF21196))))

(CFFI:DEFCFUN ("zlatrd_" %%ZLATRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (TAU :POINTER)
  (W :POINTER)
  (LDW :POINTER))

(COMMON-LISP:DEFUN %ZLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21198 ':INT32) (NB-REF21199 ':INT32)
                              (LDA-REF21201 ':INT32) (LDW-REF21205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21198 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21199 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF21205 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21200 A) (E-REF21202 E)
                                            (TAU-REF21203 TAU) (W-REF21204 W))
      (%%ZLATRD UPLO N-REF21198 NB-REF21199 A-REF21200 LDA-REF21201 E-REF21202
                TAU-REF21203 W-REF21204 LDW-REF21205))))

(CFFI:DEFCFUN ("zlatrs_" %%ZLATRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (NORMIN :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (SCALE :POINTER)
  (CNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATRS (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        CNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21210 ':INT32) (LDA-REF21212 ':INT32)
                              (SCALE-REF21214 ':DOUBLE) (INFO-REF21216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21210 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21212 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF21214 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21216 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21211 A) (X-REF21213 X)
                                            (CNORM-REF21215 CNORM))
      (%%ZLATRS UPLO TRANS DIAG NORMIN N-REF21210 A-REF21211 LDA-REF21212
                X-REF21213 SCALE-REF21214 CNORM-REF21215 INFO-REF21216))))

(CFFI:DEFCFUN ("zlatrz_" %%ZLATRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %ZLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21217 ':INT32) (N-REF21218 ':INT32)
                              (L-REF21219 ':INT32) (LDA-REF21221 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21217 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF21219 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21221 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21220 A) (TAU-REF21222 TAU)
                                            (WORK-REF21223 WORK))
      (%%ZLATRZ M-REF21217 N-REF21218 L-REF21219 A-REF21220 LDA-REF21221
                TAU-REF21222 WORK-REF21223))))

(CFFI:DEFCFUN ("zlatsqr_" %%ZLATSQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATSQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF21224 ':INT32) (N-REF21225 ':INT32)
                              (MB-REF21226 ':INT32) (NB-REF21227 ':INT32)
                              (LDA-REF21229 ':INT32) (LDT-REF21231 ':INT32)
                              (LWORK-REF21233 ':INT32) (INFO-REF21234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21224 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF21226 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF21227 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21229 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF21231 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21233 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21228 A) (T-REF21230 T)
                                            (WORK-REF21232 WORK))
      (%%ZLATSQR M-REF21224 N-REF21225 MB-REF21226 NB-REF21227 A-REF21228
                 LDA-REF21229 T-REF21230 LDT-REF21231 WORK-REF21232
                 LWORK-REF21233 INFO-REF21234))))

(CFFI:DEFCFUN ("zlauu2_" %%ZLAUU2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21236 ':INT32) (LDA-REF21238 ':INT32)
                              (INFO-REF21239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21236 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21238 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21237 A))
      (%%ZLAUU2 UPLO N-REF21236 A-REF21237 LDA-REF21238 INFO-REF21239))))

(CFFI:DEFCFUN ("zlauum_" %%ZLAUUM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUUM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21241 ':INT32) (LDA-REF21243 ':INT32)
                              (INFO-REF21244 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21241 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21243 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21244 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21242 A))
      (%%ZLAUUM UPLO N-REF21241 A-REF21242 LDA-REF21243 INFO-REF21244))))

(CFFI:DEFCFUN ("zpbcon_" %%ZPBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBCON (UPLO N KD AB LDAB ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21246 ':INT32) (KD-REF21247 ':INT32)
                              (LDAB-REF21249 ':INT32) (ANORM-REF21250 ':DOUBLE)
                              (RCOND-REF21251 ':DOUBLE) (INFO-REF21254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21247 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21249 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21250 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21251 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21248 AB)
                                            (WORK-REF21252 WORK)
                                            (RWORK-REF21253 RWORK))
      (%%ZPBCON UPLO N-REF21246 KD-REF21247 AB-REF21248 LDAB-REF21249
                ANORM-REF21250 RCOND-REF21251 WORK-REF21252 RWORK-REF21253
                INFO-REF21254))))

(CFFI:DEFCFUN ("zpbequ_" %%ZPBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21256 ':INT32) (KD-REF21257 ':INT32)
                              (LDAB-REF21259 ':INT32) (SCOND-REF21261 ':DOUBLE)
                              (AMAX-REF21262 ':DOUBLE) (INFO-REF21263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21257 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21259 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21261 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21262 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21263 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21258 AB) (S-REF21260 S))
      (%%ZPBEQU UPLO N-REF21256 KD-REF21257 AB-REF21258 LDAB-REF21259
                S-REF21260 SCOND-REF21261 AMAX-REF21262 INFO-REF21263))))

(CFFI:DEFCFUN ("zpbrfs_" %%ZPBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBRFS
                   (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21265 ':INT32) (KD-REF21266 ':INT32)
                              (NRHS-REF21267 ':INT32) (LDAB-REF21269 ':INT32)
                              (LDAFB-REF21271 ':INT32) (LDB-REF21273 ':INT32)
                              (LDX-REF21275 ':INT32) (INFO-REF21280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21265 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21266 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21267 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21269 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21271 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21273 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21275 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21280 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21268 AB) (AFB-REF21270 AFB)
                                            (B-REF21272 B) (X-REF21274 X)
                                            (FERR-REF21276 FERR)
                                            (BERR-REF21277 BERR)
                                            (WORK-REF21278 WORK)
                                            (RWORK-REF21279 RWORK))
      (%%ZPBRFS UPLO N-REF21265 KD-REF21266 NRHS-REF21267 AB-REF21268
                LDAB-REF21269 AFB-REF21270 LDAFB-REF21271 B-REF21272
                LDB-REF21273 X-REF21274 LDX-REF21275 FERR-REF21276
                BERR-REF21277 WORK-REF21278 RWORK-REF21279 INFO-REF21280))))

(CFFI:DEFCFUN ("zpbstf_" %%ZPBSTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21282 ':INT32) (KD-REF21283 ':INT32)
                              (LDAB-REF21285 ':INT32) (INFO-REF21286 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21282 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21283 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21285 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21286 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21284 AB))
      (%%ZPBSTF UPLO N-REF21282 KD-REF21283 AB-REF21284 LDAB-REF21285
                INFO-REF21286))))

(CFFI:DEFCFUN ("zpbsv_" %%ZPBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21288 ':INT32) (KD-REF21289 ':INT32)
                              (NRHS-REF21290 ':INT32) (LDAB-REF21292 ':INT32)
                              (LDB-REF21294 ':INT32) (INFO-REF21295 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21288 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21289 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21290 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21292 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21294 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21295 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21291 AB) (B-REF21293 B))
      (%%ZPBSV UPLO N-REF21288 KD-REF21289 NRHS-REF21290 AB-REF21291
               LDAB-REF21292 B-REF21293 LDB-REF21294 INFO-REF21295))))

(CFFI:DEFCFUN ("zpbsvx_" %%ZPBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBSVX
                   (FACT UPLO N KD NRHS AB LDAB AFB LDAFB EQUED S B LDB X LDX
                    RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21298 ':INT32) (KD-REF21299 ':INT32)
                              (NRHS-REF21300 ':INT32) (LDAB-REF21302 ':INT32)
                              (LDAFB-REF21304 ':INT32) (LDB-REF21308 ':INT32)
                              (LDX-REF21310 ':INT32) (RCOND-REF21311 ':DOUBLE)
                              (INFO-REF21316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21298 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21299 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21300 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21302 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF21304 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21308 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21310 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21311 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21301 AB) (AFB-REF21303 AFB)
                                            (S-REF21306 S) (B-REF21307 B)
                                            (X-REF21309 X) (FERR-REF21312 FERR)
                                            (BERR-REF21313 BERR)
                                            (WORK-REF21314 WORK)
                                            (RWORK-REF21315 RWORK))
      (%%ZPBSVX FACT UPLO N-REF21298 KD-REF21299 NRHS-REF21300 AB-REF21301
                LDAB-REF21302 AFB-REF21303 LDAFB-REF21304 EQUED S-REF21306
                B-REF21307 LDB-REF21308 X-REF21309 LDX-REF21310 RCOND-REF21311
                FERR-REF21312 BERR-REF21313 WORK-REF21314 RWORK-REF21315
                INFO-REF21316))))

(CFFI:DEFCFUN ("zpbtf2_" %%ZPBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21318 ':INT32) (KD-REF21319 ':INT32)
                              (LDAB-REF21321 ':INT32) (INFO-REF21322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21318 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21319 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21321 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21320 AB))
      (%%ZPBTF2 UPLO N-REF21318 KD-REF21319 AB-REF21320 LDAB-REF21321
                INFO-REF21322))))

(CFFI:DEFCFUN ("zpbtrf_" %%ZPBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21324 ':INT32) (KD-REF21325 ':INT32)
                              (LDAB-REF21327 ':INT32) (INFO-REF21328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21325 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21327 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21328 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21326 AB))
      (%%ZPBTRF UPLO N-REF21324 KD-REF21325 AB-REF21326 LDAB-REF21327
                INFO-REF21328))))

(CFFI:DEFCFUN ("zpbtrs_" %%ZPBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21330 ':INT32) (KD-REF21331 ':INT32)
                              (NRHS-REF21332 ':INT32) (LDAB-REF21334 ':INT32)
                              (LDB-REF21336 ':INT32) (INFO-REF21337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF21331 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21332 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF21334 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21336 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21337 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF21333 AB) (B-REF21335 B))
      (%%ZPBTRS UPLO N-REF21330 KD-REF21331 NRHS-REF21332 AB-REF21333
                LDAB-REF21334 B-REF21335 LDB-REF21336 INFO-REF21337))))

(CFFI:DEFCFUN ("zpftrf_" %%ZPFTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21340 ':INT32) (INFO-REF21342 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21340 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21342 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21341 A))
      (%%ZPFTRF TRANSR UPLO N-REF21340 A-REF21341 INFO-REF21342))))

(CFFI:DEFCFUN ("zpftri_" %%ZPFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRI (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21345 ':INT32) (INFO-REF21347 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21347 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21346 A))
      (%%ZPFTRI TRANSR UPLO N-REF21345 A-REF21346 INFO-REF21347))))

(CFFI:DEFCFUN ("zpftrs_" %%ZPFTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21350 ':INT32) (NRHS-REF21351 ':INT32)
                              (LDB-REF21354 ':INT32) (INFO-REF21355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21350 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21351 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21354 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21352 A) (B-REF21353 B))
      (%%ZPFTRS TRANSR UPLO N-REF21350 NRHS-REF21351 A-REF21352 B-REF21353
                LDB-REF21354 INFO-REF21355))))

(CFFI:DEFCFUN ("zpocon_" %%ZPOCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21357 ':INT32) (LDA-REF21359 ':INT32)
                              (ANORM-REF21360 ':DOUBLE)
                              (RCOND-REF21361 ':DOUBLE) (INFO-REF21364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21357 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21359 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21360 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21361 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21364 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21358 A) (WORK-REF21362 WORK)
                                            (RWORK-REF21363 RWORK))
      (%%ZPOCON UPLO N-REF21357 A-REF21358 LDA-REF21359 ANORM-REF21360
                RCOND-REF21361 WORK-REF21362 RWORK-REF21363 INFO-REF21364))))

(CFFI:DEFCFUN ("zpoequ_" %%ZPOEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21365 ':INT32) (LDA-REF21367 ':INT32)
                              (SCOND-REF21369 ':DOUBLE)
                              (AMAX-REF21370 ':DOUBLE) (INFO-REF21371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21365 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21367 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21369 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21370 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21366 A) (S-REF21368 S))
      (%%ZPOEQU N-REF21365 A-REF21366 LDA-REF21367 S-REF21368 SCOND-REF21369
                AMAX-REF21370 INFO-REF21371))))

(CFFI:DEFCFUN ("zpoequb_" %%ZPOEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOEQUB (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21372 ':INT32) (LDA-REF21374 ':INT32)
                              (SCOND-REF21376 ':DOUBLE)
                              (AMAX-REF21377 ':DOUBLE) (INFO-REF21378 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21372 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21374 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21376 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21377 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21378 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21373 A) (S-REF21375 S))
      (%%ZPOEQUB N-REF21372 A-REF21373 LDA-REF21374 S-REF21375 SCOND-REF21376
                 AMAX-REF21377 INFO-REF21378))))

(CFFI:DEFCFUN ("zporfs_" %%ZPORFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPORFS
                   (UPLO N NRHS A LDA AF LDAF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPORFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21380 ':INT32) (NRHS-REF21381 ':INT32)
                              (LDA-REF21383 ':INT32) (LDAF-REF21385 ':INT32)
                              (LDB-REF21387 ':INT32) (LDX-REF21389 ':INT32)
                              (INFO-REF21394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21381 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21383 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21385 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21387 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21389 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21382 A) (AF-REF21384 AF)
                                            (B-REF21386 B) (X-REF21388 X)
                                            (FERR-REF21390 FERR)
                                            (BERR-REF21391 BERR)
                                            (WORK-REF21392 WORK)
                                            (RWORK-REF21393 RWORK))
      (%%ZPORFS UPLO N-REF21380 NRHS-REF21381 A-REF21382 LDA-REF21383
                AF-REF21384 LDAF-REF21385 B-REF21386 LDB-REF21387 X-REF21388
                LDX-REF21389 FERR-REF21390 BERR-REF21391 WORK-REF21392
                RWORK-REF21393 INFO-REF21394))))

(CFFI:DEFCFUN ("zporfsx_" %%ZPORFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPORFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF S B LDB X LDX RCOND BERR
                    N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPORFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21397 ':INT32) (NRHS-REF21398 ':INT32)
                              (LDA-REF21400 ':INT32) (LDAF-REF21402 ':INT32)
                              (LDB-REF21405 ':INT32) (LDX-REF21407 ':INT32)
                              (RCOND-REF21408 ':DOUBLE)
                              (N_ERR_BNDS-REF21410 ':INT32)
                              (NPARAMS-REF21413 ':INT32)
                              (INFO-REF21417 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21397 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21398 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21400 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21402 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21405 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21407 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21408 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21410 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21413 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21417 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21399 A) (AF-REF21401 AF)
                                            (S-REF21403 S) (B-REF21404 B)
                                            (X-REF21406 X) (BERR-REF21409 BERR)
                                            (ERR_BNDS_NORM-REF21411
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21412
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21414 PARAMS)
                                            (WORK-REF21415 WORK)
                                            (RWORK-REF21416 RWORK))
      (%%ZPORFSX UPLO EQUED N-REF21397 NRHS-REF21398 A-REF21399 LDA-REF21400
                 AF-REF21401 LDAF-REF21402 S-REF21403 B-REF21404 LDB-REF21405
                 X-REF21406 LDX-REF21407 RCOND-REF21408 BERR-REF21409
                 N_ERR_BNDS-REF21410 ERR_BNDS_NORM-REF21411
                 ERR_BNDS_COMP-REF21412 NPARAMS-REF21413 PARAMS-REF21414
                 WORK-REF21415 RWORK-REF21416 INFO-REF21417))))

(CFFI:DEFCFUN ("zposv_" %%ZPOSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21419 ':INT32) (NRHS-REF21420 ':INT32)
                              (LDA-REF21422 ':INT32) (LDB-REF21424 ':INT32)
                              (INFO-REF21425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21419 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21420 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21422 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21424 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21425 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21421 A) (B-REF21423 B))
      (%%ZPOSV UPLO N-REF21419 NRHS-REF21420 A-REF21421 LDA-REF21422 B-REF21423
               LDB-REF21424 INFO-REF21425))))

(CFFI:DEFCFUN ("zposvx_" %%ZPOSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSVX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21428 ':INT32) (NRHS-REF21429 ':INT32)
                              (LDA-REF21431 ':INT32) (LDAF-REF21433 ':INT32)
                              (LDB-REF21437 ':INT32) (LDX-REF21439 ':INT32)
                              (RCOND-REF21440 ':DOUBLE) (INFO-REF21445 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21429 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21433 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21437 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21439 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21440 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21445 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21430 A) (AF-REF21432 AF)
                                            (S-REF21435 S) (B-REF21436 B)
                                            (X-REF21438 X) (FERR-REF21441 FERR)
                                            (BERR-REF21442 BERR)
                                            (WORK-REF21443 WORK)
                                            (RWORK-REF21444 RWORK))
      (%%ZPOSVX FACT UPLO N-REF21428 NRHS-REF21429 A-REF21430 LDA-REF21431
                AF-REF21432 LDAF-REF21433 EQUED S-REF21435 B-REF21436
                LDB-REF21437 X-REF21438 LDX-REF21439 RCOND-REF21440
                FERR-REF21441 BERR-REF21442 WORK-REF21443 RWORK-REF21444
                INFO-REF21445))))

(CFFI:DEFCFUN ("zposvxx_" %%ZPOSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF EQUED S B LDB X LDX RCOND
                    RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS
                    PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21448 ':INT32) (NRHS-REF21449 ':INT32)
                              (LDA-REF21451 ':INT32) (LDAF-REF21453 ':INT32)
                              (LDB-REF21457 ':INT32) (LDX-REF21459 ':INT32)
                              (RCOND-REF21460 ':DOUBLE)
                              (RPVGRW-REF21461 ':DOUBLE)
                              (N_ERR_BNDS-REF21463 ':INT32)
                              (NPARAMS-REF21466 ':INT32)
                              (INFO-REF21470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21448 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21449 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21451 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21453 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21457 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21459 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21460 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF21461 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21463 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21466 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21450 A) (AF-REF21452 AF)
                                            (S-REF21455 S) (B-REF21456 B)
                                            (X-REF21458 X) (BERR-REF21462 BERR)
                                            (ERR_BNDS_NORM-REF21464
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21465
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21467 PARAMS)
                                            (WORK-REF21468 WORK)
                                            (RWORK-REF21469 RWORK))
      (%%ZPOSVXX FACT UPLO N-REF21448 NRHS-REF21449 A-REF21450 LDA-REF21451
                 AF-REF21452 LDAF-REF21453 EQUED S-REF21455 B-REF21456
                 LDB-REF21457 X-REF21458 LDX-REF21459 RCOND-REF21460
                 RPVGRW-REF21461 BERR-REF21462 N_ERR_BNDS-REF21463
                 ERR_BNDS_NORM-REF21464 ERR_BNDS_COMP-REF21465 NPARAMS-REF21466
                 PARAMS-REF21467 WORK-REF21468 RWORK-REF21469 INFO-REF21470))))

(CFFI:DEFCFUN ("zpotf2_" %%ZPOTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21472 ':INT32) (LDA-REF21474 ':INT32)
                              (INFO-REF21475 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21474 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21475 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21473 A))
      (%%ZPOTF2 UPLO N-REF21472 A-REF21473 LDA-REF21474 INFO-REF21475))))

(CFFI:DEFCFUN ("zpotrf_" %%ZPOTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21477 ':INT32) (LDA-REF21479 ':INT32)
                              (INFO-REF21480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21479 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21478 A))
      (%%ZPOTRF UPLO N-REF21477 A-REF21478 LDA-REF21479 INFO-REF21480))))

(CFFI:DEFCFUN ("zpotrf2_" %%ZPOTRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21482 ':INT32) (LDA-REF21484 ':INT32)
                              (INFO-REF21485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21484 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21483 A))
      (%%ZPOTRF2 UPLO N-REF21482 A-REF21483 LDA-REF21484 INFO-REF21485))))

(CFFI:DEFCFUN ("zpotri_" %%ZPOTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21487 ':INT32) (LDA-REF21489 ':INT32)
                              (INFO-REF21490 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21487 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21489 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21490 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21488 A))
      (%%ZPOTRI UPLO N-REF21487 A-REF21488 LDA-REF21489 INFO-REF21490))))

(CFFI:DEFCFUN ("zpotrs_" %%ZPOTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPOTRS (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21492 ':INT32) (NRHS-REF21493 ':INT32)
                              (LDA-REF21495 ':INT32) (LDB-REF21497 ':INT32)
                              (INFO-REF21498 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21492 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21493 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21495 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21497 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21498 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21494 A) (B-REF21496 B))
      (%%ZPOTRS UPLO N-REF21492 NRHS-REF21493 A-REF21494 LDA-REF21495
                B-REF21496 LDB-REF21497 INFO-REF21498))))

(CFFI:DEFCFUN ("zppcon_" %%ZPPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21500 ':INT32) (ANORM-REF21502 ':DOUBLE)
                              (RCOND-REF21503 ':DOUBLE) (INFO-REF21506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21502 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21503 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21501 AP)
                                            (WORK-REF21504 WORK)
                                            (RWORK-REF21505 RWORK))
      (%%ZPPCON UPLO N-REF21500 AP-REF21501 ANORM-REF21502 RCOND-REF21503
                WORK-REF21504 RWORK-REF21505 INFO-REF21506))))

(CFFI:DEFCFUN ("zppequ_" %%ZPPEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPEQU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21508 ':INT32) (SCOND-REF21511 ':DOUBLE)
                              (AMAX-REF21512 ':DOUBLE) (INFO-REF21513 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21511 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21512 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21513 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21509 AP) (S-REF21510 S))
      (%%ZPPEQU UPLO N-REF21508 AP-REF21509 S-REF21510 SCOND-REF21511
                AMAX-REF21512 INFO-REF21513))))

(CFFI:DEFCFUN ("zpprfs_" %%ZPPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPRFS
                   (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21515 ':INT32) (NRHS-REF21516 ':INT32)
                              (LDB-REF21520 ':INT32) (LDX-REF21522 ':INT32)
                              (INFO-REF21527 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21515 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21516 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21520 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21522 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21527 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21517 AP) (AFP-REF21518 AFP)
                                            (B-REF21519 B) (X-REF21521 X)
                                            (FERR-REF21523 FERR)
                                            (BERR-REF21524 BERR)
                                            (WORK-REF21525 WORK)
                                            (RWORK-REF21526 RWORK))
      (%%ZPPRFS UPLO N-REF21515 NRHS-REF21516 AP-REF21517 AFP-REF21518
                B-REF21519 LDB-REF21520 X-REF21521 LDX-REF21522 FERR-REF21523
                BERR-REF21524 WORK-REF21525 RWORK-REF21526 INFO-REF21527))))

(CFFI:DEFCFUN ("zppsv_" %%ZPPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21529 ':INT32) (NRHS-REF21530 ':INT32)
                              (LDB-REF21533 ':INT32) (INFO-REF21534 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21529 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21530 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21534 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21531 AP) (B-REF21532 B))
      (%%ZPPSV UPLO N-REF21529 NRHS-REF21530 AP-REF21531 B-REF21532
               LDB-REF21533 INFO-REF21534))))

(CFFI:DEFCFUN ("zppsvx_" %%ZPPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPSVX
                   (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21537 ':INT32) (NRHS-REF21538 ':INT32)
                              (LDB-REF21544 ':INT32) (LDX-REF21546 ':INT32)
                              (RCOND-REF21547 ':DOUBLE) (INFO-REF21552 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21538 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21544 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21546 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21547 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21552 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21539 AP) (AFP-REF21540 AFP)
                                            (S-REF21542 S) (B-REF21543 B)
                                            (X-REF21545 X) (FERR-REF21548 FERR)
                                            (BERR-REF21549 BERR)
                                            (WORK-REF21550 WORK)
                                            (RWORK-REF21551 RWORK))
      (%%ZPPSVX FACT UPLO N-REF21537 NRHS-REF21538 AP-REF21539 AFP-REF21540
                EQUED S-REF21542 B-REF21543 LDB-REF21544 X-REF21545
                LDX-REF21546 RCOND-REF21547 FERR-REF21548 BERR-REF21549
                WORK-REF21550 RWORK-REF21551 INFO-REF21552))))

(CFFI:DEFCFUN ("zpptrf_" %%ZPPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21554 ':INT32) (INFO-REF21556 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21554 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21556 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21555 AP))
      (%%ZPPTRF UPLO N-REF21554 AP-REF21555 INFO-REF21556))))

(CFFI:DEFCFUN ("zpptri_" %%ZPPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRI (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21558 ':INT32) (INFO-REF21560 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21558 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21560 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21559 AP))
      (%%ZPPTRI UPLO N-REF21558 AP-REF21559 INFO-REF21560))))

(CFFI:DEFCFUN ("zpptrs_" %%ZPPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21562 ':INT32) (NRHS-REF21563 ':INT32)
                              (LDB-REF21566 ':INT32) (INFO-REF21567 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21563 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21566 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21567 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21564 AP) (B-REF21565 B))
      (%%ZPPTRS UPLO N-REF21562 NRHS-REF21563 AP-REF21564 B-REF21565
                LDB-REF21566 INFO-REF21567))))

(CFFI:DEFCFUN ("zpstf2_" %%ZPSTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21569 ':INT32) (LDA-REF21571 ':INT32)
                              (RANK-REF21573 ':INT32) (TOL-REF21574 ':DOUBLE)
                              (INFO-REF21576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21571 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21573 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21574 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21576 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21570 A) (PIV-REF21572 PIV)
                                            (WORK-REF21575 WORK))
      (%%ZPSTF2 UPLO N-REF21569 A-REF21570 LDA-REF21571 PIV-REF21572
                RANK-REF21573 TOL-REF21574 WORK-REF21575 INFO-REF21576))))

(CFFI:DEFCFUN ("zpstrf_" %%ZPSTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (PIV :POINTER)
  (RANK :POINTER)
  (TOL :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPSTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21578 ':INT32) (LDA-REF21580 ':INT32)
                              (RANK-REF21582 ':INT32) (TOL-REF21583 ':DOUBLE)
                              (INFO-REF21585 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21578 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21580 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF21582 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF21583 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21585 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21579 A) (PIV-REF21581 PIV)
                                            (WORK-REF21584 WORK))
      (%%ZPSTRF UPLO N-REF21578 A-REF21579 LDA-REF21580 PIV-REF21581
                RANK-REF21582 TOL-REF21583 WORK-REF21584 INFO-REF21585))))

(CFFI:DEFCFUN ("zptcon_" %%ZPTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTCON (N D E ANORM RCOND RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTCON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21586 ':INT32) (ANORM-REF21589 ':DOUBLE)
                              (RCOND-REF21590 ':DOUBLE) (INFO-REF21592 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21586 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21589 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21590 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21592 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21587 D) (E-REF21588 E)
                                            (RWORK-REF21591 RWORK))
      (%%ZPTCON N-REF21586 D-REF21587 E-REF21588 ANORM-REF21589 RCOND-REF21590
                RWORK-REF21591 INFO-REF21592))))

(CFFI:DEFCFUN ("zpteqr_" %%ZPTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21594 ':INT32) (LDZ-REF21598 ':INT32)
                              (INFO-REF21600 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21598 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21600 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21595 D) (E-REF21596 E)
                                            (Z-REF21597 Z) (WORK-REF21599 WORK))
      (%%ZPTEQR COMPZ N-REF21594 D-REF21595 E-REF21596 Z-REF21597 LDZ-REF21598
                WORK-REF21599 INFO-REF21600))))

(CFFI:DEFCFUN ("zptrfs_" %%ZPTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTRFS
                   (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21602 ':INT32) (NRHS-REF21603 ':INT32)
                              (LDB-REF21609 ':INT32) (LDX-REF21611 ':INT32)
                              (INFO-REF21616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21603 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21609 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21611 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21616 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21604 D) (E-REF21605 E)
                                            (DF-REF21606 DF) (EF-REF21607 EF)
                                            (B-REF21608 B) (X-REF21610 X)
                                            (FERR-REF21612 FERR)
                                            (BERR-REF21613 BERR)
                                            (WORK-REF21614 WORK)
                                            (RWORK-REF21615 RWORK))
      (%%ZPTRFS UPLO N-REF21602 NRHS-REF21603 D-REF21604 E-REF21605 DF-REF21606
                EF-REF21607 B-REF21608 LDB-REF21609 X-REF21610 LDX-REF21611
                FERR-REF21612 BERR-REF21613 WORK-REF21614 RWORK-REF21615
                INFO-REF21616))))

(CFFI:DEFCFUN ("zptsv_" %%ZPTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21617 ':INT32) (NRHS-REF21618 ':INT32)
                              (LDB-REF21622 ':INT32) (INFO-REF21623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21618 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21622 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21623 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21619 D) (E-REF21620 E)
                                            (B-REF21621 B))
      (%%ZPTSV N-REF21617 NRHS-REF21618 D-REF21619 E-REF21620 B-REF21621
               LDB-REF21622 INFO-REF21623))))

(CFFI:DEFCFUN ("zptsvx_" %%ZPTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (DF :POINTER)
  (EF :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTSVX
                   (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        EF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21625 ':INT32) (NRHS-REF21626 ':INT32)
                              (LDB-REF21632 ':INT32) (LDX-REF21634 ':INT32)
                              (RCOND-REF21635 ':DOUBLE) (INFO-REF21640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21626 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21632 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21634 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21635 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21627 D) (E-REF21628 E)
                                            (DF-REF21629 DF) (EF-REF21630 EF)
                                            (B-REF21631 B) (X-REF21633 X)
                                            (FERR-REF21636 FERR)
                                            (BERR-REF21637 BERR)
                                            (WORK-REF21638 WORK)
                                            (RWORK-REF21639 RWORK))
      (%%ZPTSVX FACT N-REF21625 NRHS-REF21626 D-REF21627 E-REF21628 DF-REF21629
                EF-REF21630 B-REF21631 LDB-REF21632 X-REF21633 LDX-REF21634
                RCOND-REF21635 FERR-REF21636 BERR-REF21637 WORK-REF21638
                RWORK-REF21639 INFO-REF21640))))

(CFFI:DEFCFUN ("zpttrf_" %%ZPTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21641 ':INT32) (INFO-REF21644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21644 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21642 D) (E-REF21643 E))
      (%%ZPTTRF N-REF21641 D-REF21642 E-REF21643 INFO-REF21644))))

(CFFI:DEFCFUN ("zpttrs_" %%ZPTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZPTTRS (UPLO N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21646 ':INT32) (NRHS-REF21647 ':INT32)
                              (LDB-REF21651 ':INT32) (INFO-REF21652 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21646 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21647 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21651 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21652 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21648 D) (E-REF21649 E)
                                            (B-REF21650 B))
      (%%ZPTTRS UPLO N-REF21646 NRHS-REF21647 D-REF21648 E-REF21649 B-REF21650
                LDB-REF21651 INFO-REF21652))))

(CFFI:DEFCFUN ("zptts2_" %%ZPTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IUPLO :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF21653 ':INT32) (N-REF21654 ':INT32)
                              (NRHS-REF21655 ':INT32) (LDB-REF21659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF21653 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21654 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21655 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21659 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21656 D) (E-REF21657 E)
                                            (B-REF21658 B))
      (%%ZPTTS2 IUPLO-REF21653 N-REF21654 NRHS-REF21655 D-REF21656 E-REF21657
                B-REF21658 LDB-REF21659))))

(CFFI:DEFCFUN ("zrot_" %%ZROT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21660 ':INT32) (INCX-REF21662 ':INT32)
                              (INCY-REF21664 ':INT32) (C-REF21665 ':DOUBLE)
                              (S-REF21666
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21662 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21664 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF21665 :DOUBLE) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF21666 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF21661 CX) (CY-REF21663 CY))
      (%%ZROT N-REF21660 CX-REF21661 INCX-REF21662 CY-REF21663 INCY-REF21664
              C-REF21665 S-REF21666))))

(CFFI:DEFCFUN ("zspcon_" %%ZSPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21668 ':INT32) (ANORM-REF21671 ':DOUBLE)
                              (RCOND-REF21672 ':DOUBLE) (INFO-REF21674 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21668 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21671 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21672 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21674 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21669 AP)
                                            (IPIV-REF21670 IPIV)
                                            (WORK-REF21673 WORK))
      (%%ZSPCON UPLO N-REF21668 AP-REF21669 IPIV-REF21670 ANORM-REF21671
                RCOND-REF21672 WORK-REF21673 INFO-REF21674))))

(CFFI:DEFCFUN ("zspmv_" %%ZSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21676 ':INT32)
                              (ALPHA-REF21677
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21680 ':INT32)
                              (BETA-REF21681
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF21683 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21676 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21677
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21680 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21681
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21683 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21678 AP) (X-REF21679 X)
                                            (Y-REF21682 Y))
      (%%ZSPMV UPLO N-REF21676 ALPHA-REF21677 AP-REF21678 X-REF21679
               INCX-REF21680 BETA-REF21681 Y-REF21682 INCY-REF21683))))

(CFFI:DEFCFUN ("zspr_" %%ZSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21685 ':INT32)
                              (ALPHA-REF21686
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21685 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21686
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21688 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21687 X) (AP-REF21689 AP))
      (%%ZSPR UPLO N-REF21685 ALPHA-REF21686 X-REF21687 INCX-REF21688
              AP-REF21689))))

(CFFI:DEFCFUN ("zsprfs_" %%ZSPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPRFS
                   (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21691 ':INT32) (NRHS-REF21692 ':INT32)
                              (LDB-REF21697 ':INT32) (LDX-REF21699 ':INT32)
                              (INFO-REF21704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21691 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21692 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21697 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21699 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21693 AP) (AFP-REF21694 AFP)
                                            (IPIV-REF21695 IPIV) (B-REF21696 B)
                                            (X-REF21698 X) (FERR-REF21700 FERR)
                                            (BERR-REF21701 BERR)
                                            (WORK-REF21702 WORK)
                                            (RWORK-REF21703 RWORK))
      (%%ZSPRFS UPLO N-REF21691 NRHS-REF21692 AP-REF21693 AFP-REF21694
                IPIV-REF21695 B-REF21696 LDB-REF21697 X-REF21698 LDX-REF21699
                FERR-REF21700 BERR-REF21701 WORK-REF21702 RWORK-REF21703
                INFO-REF21704))))

(CFFI:DEFCFUN ("zspsv_" %%ZSPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21706 ':INT32) (NRHS-REF21707 ':INT32)
                              (LDB-REF21711 ':INT32) (INFO-REF21712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21707 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21711 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21708 AP)
                                            (IPIV-REF21709 IPIV) (B-REF21710 B))
      (%%ZSPSV UPLO N-REF21706 NRHS-REF21707 AP-REF21708 IPIV-REF21709
               B-REF21710 LDB-REF21711 INFO-REF21712))))

(CFFI:DEFCFUN ("zspsvx_" %%ZSPSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (AFP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPSVX
                   (FACT UPLO N NRHS AP AFP IPIV B LDB X LDX RCOND FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AFP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21715 ':INT32) (NRHS-REF21716 ':INT32)
                              (LDB-REF21721 ':INT32) (LDX-REF21723 ':INT32)
                              (RCOND-REF21724 ':DOUBLE) (INFO-REF21729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21715 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21716 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21721 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21723 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21724 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21717 AP) (AFP-REF21718 AFP)
                                            (IPIV-REF21719 IPIV) (B-REF21720 B)
                                            (X-REF21722 X) (FERR-REF21725 FERR)
                                            (BERR-REF21726 BERR)
                                            (WORK-REF21727 WORK)
                                            (RWORK-REF21728 RWORK))
      (%%ZSPSVX FACT UPLO N-REF21715 NRHS-REF21716 AP-REF21717 AFP-REF21718
                IPIV-REF21719 B-REF21720 LDB-REF21721 X-REF21722 LDX-REF21723
                RCOND-REF21724 FERR-REF21725 BERR-REF21726 WORK-REF21727
                RWORK-REF21728 INFO-REF21729))))

(CFFI:DEFCFUN ("zsptrf_" %%ZSPTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21731 ':INT32) (INFO-REF21734 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21731 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21734 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21732 AP)
                                            (IPIV-REF21733 IPIV))
      (%%ZSPTRF UPLO N-REF21731 AP-REF21732 IPIV-REF21733 INFO-REF21734))))

(CFFI:DEFCFUN ("zsptri_" %%ZSPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21736 ':INT32) (INFO-REF21740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21736 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21737 AP)
                                            (IPIV-REF21738 IPIV)
                                            (WORK-REF21739 WORK))
      (%%ZSPTRI UPLO N-REF21736 AP-REF21737 IPIV-REF21738 WORK-REF21739
                INFO-REF21740))))

(CFFI:DEFCFUN ("zsptrs_" %%ZSPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21742 ':INT32) (NRHS-REF21743 ':INT32)
                              (LDB-REF21747 ':INT32) (INFO-REF21748 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21743 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21747 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21748 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF21744 AP)
                                            (IPIV-REF21745 IPIV) (B-REF21746 B))
      (%%ZSPTRS UPLO N-REF21742 NRHS-REF21743 AP-REF21744 IPIV-REF21745
                B-REF21746 LDB-REF21747 INFO-REF21748))))

(CFFI:DEFCFUN ("zstedc_" %%ZSTEDC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEDC
                   (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEDC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21750 ':INT32) (LDZ-REF21754 ':INT32)
                              (LWORK-REF21756 ':INT32)
                              (LRWORK-REF21758 ':INT32)
                              (LIWORK-REF21760 ':INT32) (INFO-REF21761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21750 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21754 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21756 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF21758 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21760 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21761 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21751 D) (E-REF21752 E)
                                            (Z-REF21753 Z) (WORK-REF21755 WORK)
                                            (RWORK-REF21757 RWORK)
                                            (IWORK-REF21759 IWORK))
      (%%ZSTEDC COMPZ N-REF21750 D-REF21751 E-REF21752 Z-REF21753 LDZ-REF21754
                WORK-REF21755 LWORK-REF21756 RWORK-REF21757 LRWORK-REF21758
                IWORK-REF21759 LIWORK-REF21760 INFO-REF21761))))

(CFFI:DEFCFUN ("zstegr_" %%ZSTEGR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (ABSTOL :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEGR
                   (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK
                    LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEGR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21764 ':INT32) (VL-REF21767 ':DOUBLE)
                              (VU-REF21768 ':DOUBLE) (IL-REF21769 ':INT32)
                              (IU-REF21770 ':INT32) (ABSTOL-REF21771 ':DOUBLE)
                              (M-REF21772 ':INT32) (LDZ-REF21775 ':INT32)
                              (LWORK-REF21778 ':INT32)
                              (LIWORK-REF21780 ':INT32) (INFO-REF21781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21767 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21768 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21769 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21770 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF21771 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21772 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21775 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21778 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21780 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21781 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21765 D) (E-REF21766 E)
                                            (W-REF21773 W) (Z-REF21774 Z)
                                            (ISUPPZ-REF21776 ISUPPZ)
                                            (WORK-REF21777 WORK)
                                            (IWORK-REF21779 IWORK))
      (%%ZSTEGR JOBZ RANGE N-REF21764 D-REF21765 E-REF21766 VL-REF21767
                VU-REF21768 IL-REF21769 IU-REF21770 ABSTOL-REF21771 M-REF21772
                W-REF21773 Z-REF21774 LDZ-REF21775 ISUPPZ-REF21776
                WORK-REF21777 LWORK-REF21778 IWORK-REF21779 LIWORK-REF21780
                INFO-REF21781))))

(CFFI:DEFCFUN ("zstein_" %%ZSTEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (M :POINTER)
  (W :POINTER)
  (IBLOCK :POINTER)
  (ISPLIT :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (IFAIL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEIN
                   (N D E M W IBLOCK ISPLIT Z LDZ WORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21782 ':INT32) (M-REF21785 ':INT32)
                              (LDZ-REF21790 ':INT32) (INFO-REF21794 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21782 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21785 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21790 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21794 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21783 D) (E-REF21784 E)
                                            (W-REF21786 W)
                                            (IBLOCK-REF21787 IBLOCK)
                                            (ISPLIT-REF21788 ISPLIT)
                                            (Z-REF21789 Z) (WORK-REF21791 WORK)
                                            (IWORK-REF21792 IWORK)
                                            (IFAIL-REF21793 IFAIL))
      (%%ZSTEIN N-REF21782 D-REF21783 E-REF21784 M-REF21785 W-REF21786
                IBLOCK-REF21787 ISPLIT-REF21788 Z-REF21789 LDZ-REF21790
                WORK-REF21791 IWORK-REF21792 IFAIL-REF21793 INFO-REF21794))))

(CFFI:DEFCFUN ("zstemr_" %%ZSTEMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (RANGE :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (M :POINTER)
  (W :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NZC :POINTER)
  (ISUPPZ :POINTER)
  (TRYRAC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEMR
                   (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC
                    WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEMR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21797 ':INT32) (VL-REF21800 ':DOUBLE)
                              (VU-REF21801 ':DOUBLE) (IL-REF21802 ':INT32)
                              (IU-REF21803 ':INT32) (M-REF21804 ':INT32)
                              (LDZ-REF21807 ':INT32) (NZC-REF21808 ':INT32)
                              (TRYRAC-REF21810 ':INT32)
                              (LWORK-REF21812 ':INT32)
                              (LIWORK-REF21814 ':INT32) (INFO-REF21815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF21800 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF21801 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF21802 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF21803 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF21804 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21807 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF21808 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF21810 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21812 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF21814 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21798 D) (E-REF21799 E)
                                            (W-REF21805 W) (Z-REF21806 Z)
                                            (ISUPPZ-REF21809 ISUPPZ)
                                            (WORK-REF21811 WORK)
                                            (IWORK-REF21813 IWORK))
      (%%ZSTEMR JOBZ RANGE N-REF21797 D-REF21798 E-REF21799 VL-REF21800
                VU-REF21801 IL-REF21802 IU-REF21803 M-REF21804 W-REF21805
                Z-REF21806 LDZ-REF21807 NZC-REF21808 ISUPPZ-REF21809
                TRYRAC-REF21810 WORK-REF21811 LWORK-REF21812 IWORK-REF21813
                LIWORK-REF21814 INFO-REF21815))))

(CFFI:DEFCFUN ("zsteqr_" %%ZSTEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPZ :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21817 ':INT32) (LDZ-REF21821 ':INT32)
                              (INFO-REF21823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF21821 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF21818 D) (E-REF21819 E)
                                            (Z-REF21820 Z) (WORK-REF21822 WORK))
      (%%ZSTEQR COMPZ N-REF21817 D-REF21818 E-REF21819 Z-REF21820 LDZ-REF21821
                WORK-REF21822 INFO-REF21823))))

(CFFI:DEFCFUN ("zsycon_" %%ZSYCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21825 ':INT32) (LDA-REF21827 ':INT32)
                              (ANORM-REF21829 ':DOUBLE)
                              (RCOND-REF21830 ':DOUBLE) (INFO-REF21832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21825 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21827 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21829 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21830 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21832 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21826 A) (IPIV-REF21828 IPIV)
                                            (WORK-REF21831 WORK))
      (%%ZSYCON UPLO N-REF21825 A-REF21826 LDA-REF21827 IPIV-REF21828
                ANORM-REF21829 RCOND-REF21830 WORK-REF21831 INFO-REF21832))))

(CFFI:DEFCFUN ("zsycon_3_" %%ZSYCON_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON_3 (UPLO N A LDA E IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21834 ':INT32) (LDA-REF21836 ':INT32)
                              (ANORM-REF21839 ':DOUBLE)
                              (RCOND-REF21840 ':DOUBLE) (INFO-REF21842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21836 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21839 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21840 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21835 A) (E-REF21837 E)
                                            (IPIV-REF21838 IPIV)
                                            (WORK-REF21841 WORK))
      (%%ZSYCON_3 UPLO N-REF21834 A-REF21835 LDA-REF21836 E-REF21837
                  IPIV-REF21838 ANORM-REF21839 RCOND-REF21840 WORK-REF21841
                  INFO-REF21842))))

(CFFI:DEFCFUN ("zsycon_rook_" %%ZSYCON_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCON_ROOK (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21844 ':INT32) (LDA-REF21846 ':INT32)
                              (ANORM-REF21848 ':DOUBLE)
                              (RCOND-REF21849 ':DOUBLE) (INFO-REF21851 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21846 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF21848 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21849 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21851 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21845 A) (IPIV-REF21847 IPIV)
                                            (WORK-REF21850 WORK))
      (%%ZSYCON_ROOK UPLO N-REF21844 A-REF21845 LDA-REF21846 IPIV-REF21847
                     ANORM-REF21848 RCOND-REF21849 WORK-REF21850
                     INFO-REF21851))))

(CFFI:DEFCFUN ("zsyconv_" %%ZSYCONV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21854 ':INT32) (LDA-REF21856 ':INT32)
                              (INFO-REF21859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21854 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21856 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21855 A) (IPIV-REF21857 IPIV)
                                            (E-REF21858 E))
      (%%ZSYCONV UPLO WAY N-REF21854 A-REF21855 LDA-REF21856 IPIV-REF21857
                 E-REF21858 INFO-REF21859))))

(CFFI:DEFCFUN ("zsyconvf_" %%ZSYCONVF :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21862 ':INT32) (LDA-REF21864 ':INT32)
                              (INFO-REF21867 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21862 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21864 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21867 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21863 A) (E-REF21865 E)
                                            (IPIV-REF21866 IPIV))
      (%%ZSYCONVF UPLO WAY N-REF21862 A-REF21863 LDA-REF21864 E-REF21865
                  IPIV-REF21866 INFO-REF21867))))

(CFFI:DEFCFUN ("zsyconvf_rook_" %%ZSYCONVF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (WAY :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21870 ':INT32) (LDA-REF21872 ':INT32)
                              (INFO-REF21875 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21872 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21875 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21871 A) (E-REF21873 E)
                                            (IPIV-REF21874 IPIV))
      (%%ZSYCONVF_ROOK UPLO WAY N-REF21870 A-REF21871 LDA-REF21872 E-REF21873
                       IPIV-REF21874 INFO-REF21875))))

(CFFI:DEFCFUN ("zsyequb_" %%ZSYEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYEQUB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21877 ':INT32) (LDA-REF21879 ':INT32)
                              (SCOND-REF21881 ':DOUBLE)
                              (AMAX-REF21882 ':DOUBLE) (INFO-REF21884 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21879 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF21881 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF21882 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21884 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21878 A) (S-REF21880 S)
                                            (WORK-REF21883 WORK))
      (%%ZSYEQUB UPLO N-REF21877 A-REF21878 LDA-REF21879 S-REF21880
                 SCOND-REF21881 AMAX-REF21882 WORK-REF21883 INFO-REF21884))))

(CFFI:DEFCFUN ("zsymv_" %%ZSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21886 ':INT32)
                              (ALPHA-REF21887
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF21889 ':INT32) (INCX-REF21891 ':INT32)
                              (BETA-REF21892
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF21894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21886 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21887
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21889 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21891 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF21892
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF21894 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21888 A) (X-REF21890 X)
                                            (Y-REF21893 Y))
      (%%ZSYMV UPLO N-REF21886 ALPHA-REF21887 A-REF21888 LDA-REF21889
               X-REF21890 INCX-REF21891 BETA-REF21892 Y-REF21893
               INCY-REF21894))))

(CFFI:DEFCFUN ("zsyr_" %%ZSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21896 ':INT32)
                              (ALPHA-REF21897
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF21899 ':INT32) (LDA-REF21901 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21896 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF21897
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF21899 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21901 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF21898 X) (A-REF21900 A))
      (%%ZSYR UPLO N-REF21896 ALPHA-REF21897 X-REF21898 INCX-REF21899
              A-REF21900 LDA-REF21901))))

(CFFI:DEFCFUN ("zsyrfs_" %%ZSYRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYRFS
                   (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21903 ':INT32) (NRHS-REF21904 ':INT32)
                              (LDA-REF21906 ':INT32) (LDAF-REF21908 ':INT32)
                              (LDB-REF21911 ':INT32) (LDX-REF21913 ':INT32)
                              (INFO-REF21918 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21903 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21904 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21906 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21908 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21911 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21913 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21918 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21905 A) (AF-REF21907 AF)
                                            (IPIV-REF21909 IPIV) (B-REF21910 B)
                                            (X-REF21912 X) (FERR-REF21914 FERR)
                                            (BERR-REF21915 BERR)
                                            (WORK-REF21916 WORK)
                                            (RWORK-REF21917 RWORK))
      (%%ZSYRFS UPLO N-REF21903 NRHS-REF21904 A-REF21905 LDA-REF21906
                AF-REF21907 LDAF-REF21908 IPIV-REF21909 B-REF21910 LDB-REF21911
                X-REF21912 LDX-REF21913 FERR-REF21914 BERR-REF21915
                WORK-REF21916 RWORK-REF21917 INFO-REF21918))))

(CFFI:DEFCFUN ("zsyrfsx_" %%ZSYRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYRFSX
                   (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21921 ':INT32) (NRHS-REF21922 ':INT32)
                              (LDA-REF21924 ':INT32) (LDAF-REF21926 ':INT32)
                              (LDB-REF21930 ':INT32) (LDX-REF21932 ':INT32)
                              (RCOND-REF21933 ':DOUBLE)
                              (N_ERR_BNDS-REF21935 ':INT32)
                              (NPARAMS-REF21938 ':INT32)
                              (INFO-REF21942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21921 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21922 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21924 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF21926 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21930 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF21932 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF21933 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF21935 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF21938 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21942 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21923 A) (AF-REF21925 AF)
                                            (IPIV-REF21927 IPIV) (S-REF21928 S)
                                            (B-REF21929 B) (X-REF21931 X)
                                            (BERR-REF21934 BERR)
                                            (ERR_BNDS_NORM-REF21936
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF21937
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF21939 PARAMS)
                                            (WORK-REF21940 WORK)
                                            (RWORK-REF21941 RWORK))
      (%%ZSYRFSX UPLO EQUED N-REF21921 NRHS-REF21922 A-REF21923 LDA-REF21924
                 AF-REF21925 LDAF-REF21926 IPIV-REF21927 S-REF21928 B-REF21929
                 LDB-REF21930 X-REF21931 LDX-REF21932 RCOND-REF21933
                 BERR-REF21934 N_ERR_BNDS-REF21935 ERR_BNDS_NORM-REF21936
                 ERR_BNDS_COMP-REF21937 NPARAMS-REF21938 PARAMS-REF21939
                 WORK-REF21940 RWORK-REF21941 INFO-REF21942))))

(CFFI:DEFCFUN ("zsysv_" %%ZSYSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21944 ':INT32) (NRHS-REF21945 ':INT32)
                              (LDA-REF21947 ':INT32) (LDB-REF21950 ':INT32)
                              (LWORK-REF21952 ':INT32) (INFO-REF21953 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21945 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21947 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21950 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21952 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21953 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21946 A) (IPIV-REF21948 IPIV)
                                            (B-REF21949 B) (WORK-REF21951 WORK))
      (%%ZSYSV UPLO N-REF21944 NRHS-REF21945 A-REF21946 LDA-REF21947
               IPIV-REF21948 B-REF21949 LDB-REF21950 WORK-REF21951
               LWORK-REF21952 INFO-REF21953))))

(CFFI:DEFCFUN ("zsysv_aa_" %%ZSYSV_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21955 ':INT32) (NRHS-REF21956 ':INT32)
                              (LDA-REF21958 ':INT32) (LDB-REF21961 ':INT32)
                              (LWORK-REF21963 ':INT32) (INFO-REF21964 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21955 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21956 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21958 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21961 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21963 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21964 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21957 A) (IPIV-REF21959 IPIV)
                                            (B-REF21960 B) (WORK-REF21962 WORK))
      (%%ZSYSV_AA UPLO N-REF21955 NRHS-REF21956 A-REF21957 LDA-REF21958
                  IPIV-REF21959 B-REF21960 LDB-REF21961 WORK-REF21962
                  LWORK-REF21963 INFO-REF21964))))

(CFFI:DEFCFUN ("zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21966 ':INT32) (NRHS-REF21967 ':INT32)
                              (LDA-REF21969 ':INT32) (LTB-REF21971 ':INT32)
                              (LDB-REF21975 ':INT32) (LWORK-REF21977 ':INT32)
                              (INFO-REF21978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21966 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21967 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21969 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF21971 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21975 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21977 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21968 A) (TB-REF21970 TB)
                                            (IPIV-REF21972 IPIV)
                                            (IPIV2-REF21973 IPIV2)
                                            (B-REF21974 B) (WORK-REF21976 WORK))
      (%%ZSYSV_AA_2STAGE UPLO N-REF21966 NRHS-REF21967 A-REF21968 LDA-REF21969
                         TB-REF21970 LTB-REF21971 IPIV-REF21972 IPIV2-REF21973
                         B-REF21974 LDB-REF21975 WORK-REF21976 LWORK-REF21977
                         INFO-REF21978))))

(CFFI:DEFCFUN ("zsysv_rk_" %%ZSYSV_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_RK (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21980 ':INT32) (NRHS-REF21981 ':INT32)
                              (LDA-REF21983 ':INT32) (LDB-REF21987 ':INT32)
                              (LWORK-REF21989 ':INT32) (INFO-REF21990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21981 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21987 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF21989 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF21990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21982 A) (E-REF21984 E)
                                            (IPIV-REF21985 IPIV) (B-REF21986 B)
                                            (WORK-REF21988 WORK))
      (%%ZSYSV_RK UPLO N-REF21980 NRHS-REF21981 A-REF21982 LDA-REF21983
                  E-REF21984 IPIV-REF21985 B-REF21986 LDB-REF21987
                  WORK-REF21988 LWORK-REF21989 INFO-REF21990))))

(CFFI:DEFCFUN ("zsysv_rook_" %%ZSYSV_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSV_ROOK (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF21992 ':INT32) (NRHS-REF21993 ':INT32)
                              (LDA-REF21995 ':INT32) (LDB-REF21998 ':INT32)
                              (LWORK-REF22000 ':INT32) (INFO-REF22001 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF21992 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF21993 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF21995 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF21998 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22000 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22001 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF21994 A) (IPIV-REF21996 IPIV)
                                            (B-REF21997 B) (WORK-REF21999 WORK))
      (%%ZSYSV_ROOK UPLO N-REF21992 NRHS-REF21993 A-REF21994 LDA-REF21995
                    IPIV-REF21996 B-REF21997 LDB-REF21998 WORK-REF21999
                    LWORK-REF22000 INFO-REF22001))))

(CFFI:DEFCFUN ("zsysvx_" %%ZSYSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSVX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX RCOND FERR
                    BERR WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22004 ':INT32) (NRHS-REF22005 ':INT32)
                              (LDA-REF22007 ':INT32) (LDAF-REF22009 ':INT32)
                              (LDB-REF22012 ':INT32) (LDX-REF22014 ':INT32)
                              (RCOND-REF22015 ':DOUBLE)
                              (LWORK-REF22019 ':INT32) (INFO-REF22021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22005 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22007 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22009 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22012 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22014 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22015 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22019 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22021 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22006 A) (AF-REF22008 AF)
                                            (IPIV-REF22010 IPIV) (B-REF22011 B)
                                            (X-REF22013 X) (FERR-REF22016 FERR)
                                            (BERR-REF22017 BERR)
                                            (WORK-REF22018 WORK)
                                            (RWORK-REF22020 RWORK))
      (%%ZSYSVX FACT UPLO N-REF22004 NRHS-REF22005 A-REF22006 LDA-REF22007
                AF-REF22008 LDAF-REF22009 IPIV-REF22010 B-REF22011 LDB-REF22012
                X-REF22013 LDX-REF22014 RCOND-REF22015 FERR-REF22016
                BERR-REF22017 WORK-REF22018 LWORK-REF22019 RWORK-REF22020
                INFO-REF22021))))

(CFFI:DEFCFUN ("zsysvxx_" %%ZSYSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (S :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYSVXX
                   (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22024 ':INT32) (NRHS-REF22025 ':INT32)
                              (LDA-REF22027 ':INT32) (LDAF-REF22029 ':INT32)
                              (LDB-REF22034 ':INT32) (LDX-REF22036 ':INT32)
                              (RCOND-REF22037 ':DOUBLE)
                              (RPVGRW-REF22038 ':DOUBLE)
                              (N_ERR_BNDS-REF22040 ':INT32)
                              (NPARAMS-REF22043 ':INT32)
                              (INFO-REF22047 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22025 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22027 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF22029 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22034 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22036 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22037 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF22038 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF22040 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF22043 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22047 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22026 A) (AF-REF22028 AF)
                                            (IPIV-REF22030 IPIV) (S-REF22032 S)
                                            (B-REF22033 B) (X-REF22035 X)
                                            (BERR-REF22039 BERR)
                                            (ERR_BNDS_NORM-REF22041
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF22042
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF22044 PARAMS)
                                            (WORK-REF22045 WORK)
                                            (RWORK-REF22046 RWORK))
      (%%ZSYSVXX FACT UPLO N-REF22024 NRHS-REF22025 A-REF22026 LDA-REF22027
                 AF-REF22028 LDAF-REF22029 IPIV-REF22030 EQUED S-REF22032
                 B-REF22033 LDB-REF22034 X-REF22035 LDX-REF22036 RCOND-REF22037
                 RPVGRW-REF22038 BERR-REF22039 N_ERR_BNDS-REF22040
                 ERR_BNDS_NORM-REF22041 ERR_BNDS_COMP-REF22042 NPARAMS-REF22043
                 PARAMS-REF22044 WORK-REF22045 RWORK-REF22046 INFO-REF22047))))

(CFFI:DEFCFUN ("zsyswapr_" %%ZSYSWAPR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (I1 :POINTER)
  (I2 :POINTER))

(COMMON-LISP:DEFUN %ZSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSWAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22049 ':INT32) (LDA-REF22051 ':INT32)
                              (I1-REF22052 ':INT32) (I2-REF22053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF22052 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF22053 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22050 A))
      (%%ZSYSWAPR UPLO N-REF22049 A-REF22050 LDA-REF22051 I1-REF22052
                  I2-REF22053))))

(CFFI:DEFCFUN ("zsytf2_" %%ZSYTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22055 ':INT32) (LDA-REF22057 ':INT32)
                              (INFO-REF22059 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22055 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22057 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22059 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22056 A) (IPIV-REF22058 IPIV))
      (%%ZSYTF2 UPLO N-REF22055 A-REF22056 LDA-REF22057 IPIV-REF22058
                INFO-REF22059))))

(CFFI:DEFCFUN ("zsytf2_rk_" %%ZSYTF2_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22061 ':INT32) (LDA-REF22063 ':INT32)
                              (INFO-REF22066 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22061 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22063 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22066 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22062 A) (E-REF22064 E)
                                            (IPIV-REF22065 IPIV))
      (%%ZSYTF2_RK UPLO N-REF22061 A-REF22062 LDA-REF22063 E-REF22064
                   IPIV-REF22065 INFO-REF22066))))

(CFFI:DEFCFUN ("zsytf2_rook_" %%ZSYTF2_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22068 ':INT32) (LDA-REF22070 ':INT32)
                              (INFO-REF22072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22068 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22070 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22069 A) (IPIV-REF22071 IPIV))
      (%%ZSYTF2_ROOK UPLO N-REF22068 A-REF22069 LDA-REF22070 IPIV-REF22071
                     INFO-REF22072))))

(CFFI:DEFCFUN ("zsytrf_" %%ZSYTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22074 ':INT32) (LDA-REF22076 ':INT32)
                              (LWORK-REF22079 ':INT32) (INFO-REF22080 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22074 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22076 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22079 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22080 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22075 A) (IPIV-REF22077 IPIV)
                                            (WORK-REF22078 WORK))
      (%%ZSYTRF UPLO N-REF22074 A-REF22075 LDA-REF22076 IPIV-REF22077
                WORK-REF22078 LWORK-REF22079 INFO-REF22080))))

(CFFI:DEFCFUN ("zsytrf_aa_" %%ZSYTRF_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22082 ':INT32) (LDA-REF22084 ':INT32)
                              (LWORK-REF22087 ':INT32) (INFO-REF22088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22082 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22084 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22087 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22083 A) (IPIV-REF22085 IPIV)
                                            (WORK-REF22086 WORK))
      (%%ZSYTRF_AA UPLO N-REF22082 A-REF22083 LDA-REF22084 IPIV-REF22085
                   WORK-REF22086 LWORK-REF22087 INFO-REF22088))))

(CFFI:DEFCFUN ("zsytrf_aa_2stage_" %%ZSYTRF_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_AA_2STAGE
                   (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22090 ':INT32) (LDA-REF22092 ':INT32)
                              (LTB-REF22094 ':INT32) (LWORK-REF22098 ':INT32)
                              (INFO-REF22099 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22092 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22094 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22098 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22099 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22091 A) (TB-REF22093 TB)
                                            (IPIV-REF22095 IPIV)
                                            (IPIV2-REF22096 IPIV2)
                                            (WORK-REF22097 WORK))
      (%%ZSYTRF_AA_2STAGE UPLO N-REF22090 A-REF22091 LDA-REF22092 TB-REF22093
                          LTB-REF22094 IPIV-REF22095 IPIV2-REF22096
                          WORK-REF22097 LWORK-REF22098 INFO-REF22099))))

(CFFI:DEFCFUN ("zsytrf_rk_" %%ZSYTRF_RK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_RK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22101 ':INT32) (LDA-REF22103 ':INT32)
                              (LWORK-REF22107 ':INT32) (INFO-REF22108 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22103 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22107 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22108 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22102 A) (E-REF22104 E)
                                            (IPIV-REF22105 IPIV)
                                            (WORK-REF22106 WORK))
      (%%ZSYTRF_RK UPLO N-REF22101 A-REF22102 LDA-REF22103 E-REF22104
                   IPIV-REF22105 WORK-REF22106 LWORK-REF22107 INFO-REF22108))))

(CFFI:DEFCFUN ("zsytrf_rook_" %%ZSYTRF_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRF_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22110 ':INT32) (LDA-REF22112 ':INT32)
                              (LWORK-REF22115 ':INT32) (INFO-REF22116 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22115 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22116 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22111 A) (IPIV-REF22113 IPIV)
                                            (WORK-REF22114 WORK))
      (%%ZSYTRF_ROOK UPLO N-REF22110 A-REF22111 LDA-REF22112 IPIV-REF22113
                     WORK-REF22114 LWORK-REF22115 INFO-REF22116))))

(CFFI:DEFCFUN ("zsytri_" %%ZSYTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22118 ':INT32) (LDA-REF22120 ':INT32)
                              (INFO-REF22123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22120 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22119 A) (IPIV-REF22121 IPIV)
                                            (WORK-REF22122 WORK))
      (%%ZSYTRI UPLO N-REF22118 A-REF22119 LDA-REF22120 IPIV-REF22121
                WORK-REF22122 INFO-REF22123))))

(CFFI:DEFCFUN ("zsytri2_" %%ZSYTRI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22125 ':INT32) (LDA-REF22127 ':INT32)
                              (LWORK-REF22130 ':INT32) (INFO-REF22131 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22127 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22130 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22131 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22126 A) (IPIV-REF22128 IPIV)
                                            (WORK-REF22129 WORK))
      (%%ZSYTRI2 UPLO N-REF22125 A-REF22126 LDA-REF22127 IPIV-REF22128
                 WORK-REF22129 LWORK-REF22130 INFO-REF22131))))

(CFFI:DEFCFUN ("zsytri2x_" %%ZSYTRI2X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI2X (UPLO N A LDA IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI2X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22133 ':INT32) (LDA-REF22135 ':INT32)
                              (NB-REF22138 ':INT32) (INFO-REF22139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22133 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22135 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22138 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22139 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22134 A) (IPIV-REF22136 IPIV)
                                            (WORK-REF22137 WORK))
      (%%ZSYTRI2X UPLO N-REF22133 A-REF22134 LDA-REF22135 IPIV-REF22136
                  WORK-REF22137 NB-REF22138 INFO-REF22139))))

(CFFI:DEFCFUN ("zsytri_3_" %%ZSYTRI_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22141 ':INT32) (LDA-REF22143 ':INT32)
                              (LWORK-REF22147 ':INT32) (INFO-REF22148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22141 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22143 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22147 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22148 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22142 A) (E-REF22144 E)
                                            (IPIV-REF22145 IPIV)
                                            (WORK-REF22146 WORK))
      (%%ZSYTRI_3 UPLO N-REF22141 A-REF22142 LDA-REF22143 E-REF22144
                  IPIV-REF22145 WORK-REF22146 LWORK-REF22147 INFO-REF22148))))

(CFFI:DEFCFUN ("zsytri_3x_" %%ZSYTRI_3X :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (NB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_3X (UPLO N A LDA E IPIV WORK NB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_3X)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22150 ':INT32) (LDA-REF22152 ':INT32)
                              (NB-REF22156 ':INT32) (INFO-REF22157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22150 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22152 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22156 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22157 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22151 A) (E-REF22153 E)
                                            (IPIV-REF22154 IPIV)
                                            (WORK-REF22155 WORK))
      (%%ZSYTRI_3X UPLO N-REF22150 A-REF22151 LDA-REF22152 E-REF22153
                   IPIV-REF22154 WORK-REF22155 NB-REF22156 INFO-REF22157))))

(CFFI:DEFCFUN ("zsytri_rook_" %%ZSYTRI_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRI_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22159 ':INT32) (LDA-REF22161 ':INT32)
                              (INFO-REF22164 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22159 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22161 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22164 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22160 A) (IPIV-REF22162 IPIV)
                                            (WORK-REF22163 WORK))
      (%%ZSYTRI_ROOK UPLO N-REF22159 A-REF22160 LDA-REF22161 IPIV-REF22162
                     WORK-REF22163 INFO-REF22164))))

(CFFI:DEFCFUN ("zsytrs_" %%ZSYTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22166 ':INT32) (NRHS-REF22167 ':INT32)
                              (LDA-REF22169 ':INT32) (LDB-REF22172 ':INT32)
                              (INFO-REF22173 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22166 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22167 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22169 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22172 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22173 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22168 A) (IPIV-REF22170 IPIV)
                                            (B-REF22171 B))
      (%%ZSYTRS UPLO N-REF22166 NRHS-REF22167 A-REF22168 LDA-REF22169
                IPIV-REF22170 B-REF22171 LDB-REF22172 INFO-REF22173))))

(CFFI:DEFCFUN ("zsytrs2_" %%ZSYTRS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22175 ':INT32) (NRHS-REF22176 ':INT32)
                              (LDA-REF22178 ':INT32) (LDB-REF22181 ':INT32)
                              (INFO-REF22183 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22176 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22178 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22181 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22183 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22177 A) (IPIV-REF22179 IPIV)
                                            (B-REF22180 B) (WORK-REF22182 WORK))
      (%%ZSYTRS2 UPLO N-REF22175 NRHS-REF22176 A-REF22177 LDA-REF22178
                 IPIV-REF22179 B-REF22180 LDB-REF22181 WORK-REF22182
                 INFO-REF22183))))

(CFFI:DEFCFUN ("zsytrs_3_" %%ZSYTRS_3 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (E :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22185 ':INT32) (NRHS-REF22186 ':INT32)
                              (LDA-REF22188 ':INT32) (LDB-REF22192 ':INT32)
                              (INFO-REF22193 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22186 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22188 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22192 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22193 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22187 A) (E-REF22189 E)
                                            (IPIV-REF22190 IPIV) (B-REF22191 B))
      (%%ZSYTRS_3 UPLO N-REF22185 NRHS-REF22186 A-REF22187 LDA-REF22188
                  E-REF22189 IPIV-REF22190 B-REF22191 LDB-REF22192
                  INFO-REF22193))))

(CFFI:DEFCFUN ("zsytrs_aa_" %%ZSYTRS_AA :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_AA (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22195 ':INT32) (NRHS-REF22196 ':INT32)
                              (LDA-REF22198 ':INT32) (LDB-REF22201 ':INT32)
                              (LWORK-REF22203 ':INT32) (INFO-REF22204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22195 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22196 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22198 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22201 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22203 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22204 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22197 A) (IPIV-REF22199 IPIV)
                                            (B-REF22200 B) (WORK-REF22202 WORK))
      (%%ZSYTRS_AA UPLO N-REF22195 NRHS-REF22196 A-REF22197 LDA-REF22198
                   IPIV-REF22199 B-REF22200 LDB-REF22201 WORK-REF22202
                   LWORK-REF22203 INFO-REF22204))))

(CFFI:DEFCFUN ("zsytrs_aa_2stage_" %%ZSYTRS_AA_2STAGE :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TB :POINTER)
  (LTB :POINTER)
  (IPIV :POINTER)
  (IPIV2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_AA_2STAGE
                   (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA_2STAGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22206 ':INT32) (NRHS-REF22207 ':INT32)
                              (LDA-REF22209 ':INT32) (LTB-REF22211 ':INT32)
                              (LDB-REF22215 ':INT32) (INFO-REF22216 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22206 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22207 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22209 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF22211 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22215 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22216 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22208 A) (TB-REF22210 TB)
                                            (IPIV-REF22212 IPIV)
                                            (IPIV2-REF22213 IPIV2)
                                            (B-REF22214 B))
      (%%ZSYTRS_AA_2STAGE UPLO N-REF22206 NRHS-REF22207 A-REF22208 LDA-REF22209
                          TB-REF22210 LTB-REF22211 IPIV-REF22212 IPIV2-REF22213
                          B-REF22214 LDB-REF22215 INFO-REF22216))))

(CFFI:DEFCFUN ("zsytrs_rook_" %%ZSYTRS_ROOK :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_ROOK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22218 ':INT32) (NRHS-REF22219 ':INT32)
                              (LDA-REF22221 ':INT32) (LDB-REF22224 ':INT32)
                              (INFO-REF22225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22219 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22224 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22220 A) (IPIV-REF22222 IPIV)
                                            (B-REF22223 B))
      (%%ZSYTRS_ROOK UPLO N-REF22218 NRHS-REF22219 A-REF22220 LDA-REF22221
                     IPIV-REF22222 B-REF22223 LDB-REF22224 INFO-REF22225))))

(CFFI:DEFCFUN ("ztbcon_" %%ZTBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBCON (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22229 ':INT32) (KD-REF22230 ':INT32)
                              (LDAB-REF22232 ':INT32) (RCOND-REF22233 ':DOUBLE)
                              (INFO-REF22236 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22229 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22230 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22232 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22233 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22236 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22231 AB)
                                            (WORK-REF22234 WORK)
                                            (RWORK-REF22235 RWORK))
      (%%ZTBCON NORM UPLO DIAG N-REF22229 KD-REF22230 AB-REF22231 LDAB-REF22232
                RCOND-REF22233 WORK-REF22234 RWORK-REF22235 INFO-REF22236))))

(CFFI:DEFCFUN ("ztbrfs_" %%ZTBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBRFS
                   (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB X LDX FERR BERR
                    WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22240 ':INT32) (KD-REF22241 ':INT32)
                              (NRHS-REF22242 ':INT32) (LDAB-REF22244 ':INT32)
                              (LDB-REF22246 ':INT32) (LDX-REF22248 ':INT32)
                              (INFO-REF22253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22240 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22241 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22242 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22244 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22246 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22248 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22253 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22243 AB) (B-REF22245 B)
                                            (X-REF22247 X) (FERR-REF22249 FERR)
                                            (BERR-REF22250 BERR)
                                            (WORK-REF22251 WORK)
                                            (RWORK-REF22252 RWORK))
      (%%ZTBRFS UPLO TRANS DIAG N-REF22240 KD-REF22241 NRHS-REF22242
                AB-REF22243 LDAB-REF22244 B-REF22245 LDB-REF22246 X-REF22247
                LDX-REF22248 FERR-REF22249 BERR-REF22250 WORK-REF22251
                RWORK-REF22252 INFO-REF22253))))

(CFFI:DEFCFUN ("ztbtrs_" %%ZTBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (KD :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTBTRS (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22257 ':INT32) (KD-REF22258 ':INT32)
                              (NRHS-REF22259 ':INT32) (LDAB-REF22261 ':INT32)
                              (LDB-REF22263 ':INT32) (INFO-REF22264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22257 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF22258 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22259 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF22261 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22263 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF22260 AB) (B-REF22262 B))
      (%%ZTBTRS UPLO TRANS DIAG N-REF22257 KD-REF22258 NRHS-REF22259
                AB-REF22260 LDAB-REF22261 B-REF22262 LDB-REF22263
                INFO-REF22264))))

(CFFI:DEFCFUN ("ztfsm_" %%ZTFSM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTFSM (TRANSR SIDE UPLO TRANS DIAG M N ALPHA A B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22270 ':INT32) (N-REF22271 ':INT32)
                              (ALPHA-REF22272
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF22275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22270 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22271 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF22272
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22275 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22273 A) (B-REF22274 B))
      (%%ZTFSM TRANSR SIDE UPLO TRANS DIAG M-REF22270 N-REF22271 ALPHA-REF22272
               A-REF22273 B-REF22274 LDB-REF22275))))

(CFFI:DEFCFUN ("ztftri_" %%ZTFTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22279 ':INT32) (INFO-REF22281 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22281 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22280 A))
      (%%ZTFTRI TRANSR UPLO DIAG N-REF22279 A-REF22280 INFO-REF22281))))

(CFFI:DEFCFUN ("ztfttp_" %%ZTFTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22284 ':INT32) (INFO-REF22287 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22284 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22287 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22285 ARF) (AP-REF22286 AP))
      (%%ZTFTTP TRANSR UPLO N-REF22284 ARF-REF22285 AP-REF22286
                INFO-REF22287))))

(CFFI:DEFCFUN ("ztfttr_" %%ZTFTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (ARF :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22290 ':INT32) (LDA-REF22293 ':INT32)
                              (INFO-REF22294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22290 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22293 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22294 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF22291 ARF) (A-REF22292 A))
      (%%ZTFTTR TRANSR UPLO N-REF22290 ARF-REF22291 A-REF22292 LDA-REF22293
                INFO-REF22294))))

(CFFI:DEFCFUN ("ztgevc_" %%ZTGEVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (P :POINTER)
  (LDP :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEVC
                   (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22298 ':INT32) (LDS-REF22300 ':INT32)
                              (LDP-REF22302 ':INT32) (LDVL-REF22304 ':INT32)
                              (LDVR-REF22306 ':INT32) (MM-REF22307 ':INT32)
                              (M-REF22308 ':INT32) (INFO-REF22311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22298 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF22300 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF22302 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22304 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22306 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22307 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22311 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22297 SELECT)
                                            (S-REF22299 S) (P-REF22301 P)
                                            (VL-REF22303 VL) (VR-REF22305 VR)
                                            (WORK-REF22309 WORK)
                                            (RWORK-REF22310 RWORK))
      (%%ZTGEVC SIDE HOWMNY SELECT-REF22297 N-REF22298 S-REF22299 LDS-REF22300
                P-REF22301 LDP-REF22302 VL-REF22303 LDVL-REF22304 VR-REF22305
                LDVR-REF22306 MM-REF22307 M-REF22308 WORK-REF22309
                RWORK-REF22310 INFO-REF22311))))

(CFFI:DEFCFUN ("ztgex2_" %%ZTGEX2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (J1 :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEX2 (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEX2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22312 ':INT32) (WANTZ-REF22313 ':INT32)
                              (N-REF22314 ':INT32) (LDA-REF22316 ':INT32)
                              (LDB-REF22318 ':INT32) (LDQ-REF22320 ':INT32)
                              (LDZ-REF22322 ':INT32) (J1-REF22323 ':INT32)
                              (INFO-REF22324 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22312 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22313 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22314 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22316 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22318 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22320 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22322 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF22323 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22324 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22315 A) (B-REF22317 B)
                                            (Q-REF22319 Q) (Z-REF22321 Z))
      (%%ZTGEX2 WANTQ-REF22312 WANTZ-REF22313 N-REF22314 A-REF22315
                LDA-REF22316 B-REF22317 LDB-REF22318 Q-REF22319 LDQ-REF22320
                Z-REF22321 LDZ-REF22322 J1-REF22323 INFO-REF22324))))

(CFFI:DEFCFUN ("ztgexc_" %%ZTGEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGEXC
                   (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF22325 ':INT32) (WANTZ-REF22326 ':INT32)
                              (N-REF22327 ':INT32) (LDA-REF22329 ':INT32)
                              (LDB-REF22331 ':INT32) (LDQ-REF22333 ':INT32)
                              (LDZ-REF22335 ':INT32) (IFST-REF22336 ':INT32)
                              (ILST-REF22337 ':INT32) (INFO-REF22338 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22325 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22326 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22329 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22331 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22333 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22335 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22336 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22337 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22338 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22328 A) (B-REF22330 B)
                                            (Q-REF22332 Q) (Z-REF22334 Z))
      (%%ZTGEXC WANTQ-REF22325 WANTZ-REF22326 N-REF22327 A-REF22328
                LDA-REF22329 B-REF22330 LDB-REF22331 Q-REF22332 LDQ-REF22333
                Z-REF22334 LDZ-REF22335 IFST-REF22336 ILST-REF22337
                INFO-REF22338))))

(CFFI:DEFCFUN ("ztgsen_" %%ZTGSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (WANTQ :POINTER)
  (WANTZ :POINTER)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (M :POINTER)
  (PL :POINTER)
  (PR :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSEN
                   (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z
                    LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22339 ':INT32) (WANTQ-REF22340 ':INT32)
                              (WANTZ-REF22341 ':INT32) (N-REF22343 ':INT32)
                              (LDA-REF22345 ':INT32) (LDB-REF22347 ':INT32)
                              (LDQ-REF22351 ':INT32) (LDZ-REF22353 ':INT32)
                              (M-REF22354 ':INT32) (PL-REF22355 ':DOUBLE)
                              (PR-REF22356 ':DOUBLE) (LWORK-REF22359 ':INT32)
                              (LIWORK-REF22361 ':INT32) (INFO-REF22362 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22339 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF22340 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF22341 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22343 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22345 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22347 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22351 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF22353 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22354 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF22355 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF22356 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22359 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF22361 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22362 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22342 SELECT)
                                            (A-REF22344 A) (B-REF22346 B)
                                            (ALPHA-REF22348 ALPHA)
                                            (BETA-REF22349 BETA) (Q-REF22350 Q)
                                            (Z-REF22352 Z) (DIF-REF22357 DIF)
                                            (WORK-REF22358 WORK)
                                            (IWORK-REF22360 IWORK))
      (%%ZTGSEN IJOB-REF22339 WANTQ-REF22340 WANTZ-REF22341 SELECT-REF22342
                N-REF22343 A-REF22344 LDA-REF22345 B-REF22346 LDB-REF22347
                ALPHA-REF22348 BETA-REF22349 Q-REF22350 LDQ-REF22351 Z-REF22352
                LDZ-REF22353 M-REF22354 PL-REF22355 PR-REF22356 DIF-REF22357
                WORK-REF22358 LWORK-REF22359 IWORK-REF22360 LIWORK-REF22361
                INFO-REF22362))))

(CFFI:DEFCFUN ("ztgsja_" %%ZTGSJA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (NCYCLE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSJA
                   (JOBU JOBV JOBQ M P N K L A LDA B LDB TOLA TOLB ALPHA BETA U
                    LDU V LDV Q LDQ WORK NCYCLE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSJA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCYCLE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22366 ':INT32) (P-REF22367 ':INT32)
                              (N-REF22368 ':INT32) (K-REF22369 ':INT32)
                              (L-REF22370 ':INT32) (LDA-REF22372 ':INT32)
                              (LDB-REF22374 ':INT32) (TOLA-REF22375 ':DOUBLE)
                              (TOLB-REF22376 ':DOUBLE) (LDU-REF22380 ':INT32)
                              (LDV-REF22382 ':INT32) (LDQ-REF22384 ':INT32)
                              (NCYCLE-REF22386 ':INT32) (INFO-REF22387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22366 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22367 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22369 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22370 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22372 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22374 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF22375 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF22376 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF22380 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22382 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22384 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCYCLE-REF22386 :INT32) NCYCLE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22387 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22371 A) (B-REF22373 B)
                                            (ALPHA-REF22377 ALPHA)
                                            (BETA-REF22378 BETA) (U-REF22379 U)
                                            (V-REF22381 V) (Q-REF22383 Q)
                                            (WORK-REF22385 WORK))
      (%%ZTGSJA JOBU JOBV JOBQ M-REF22366 P-REF22367 N-REF22368 K-REF22369
                L-REF22370 A-REF22371 LDA-REF22372 B-REF22373 LDB-REF22374
                TOLA-REF22375 TOLB-REF22376 ALPHA-REF22377 BETA-REF22378
                U-REF22379 LDU-REF22380 V-REF22381 LDV-REF22382 Q-REF22383
                LDQ-REF22384 WORK-REF22385 NCYCLE-REF22386 INFO-REF22387))))

(CFFI:DEFCFUN ("ztgsna_" %%ZTGSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (DIF :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSNA
                   (JOB HOWMNY SELECT N A LDA B LDB VL LDVL VR LDVR S DIF MM M
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22391 ':INT32) (LDA-REF22393 ':INT32)
                              (LDB-REF22395 ':INT32) (LDVL-REF22397 ':INT32)
                              (LDVR-REF22399 ':INT32) (MM-REF22402 ':INT32)
                              (M-REF22403 ':INT32) (LWORK-REF22405 ':INT32)
                              (INFO-REF22407 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22393 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22395 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22397 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22399 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22402 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22403 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22405 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22407 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22390 SELECT)
                                            (A-REF22392 A) (B-REF22394 B)
                                            (VL-REF22396 VL) (VR-REF22398 VR)
                                            (S-REF22400 S) (DIF-REF22401 DIF)
                                            (WORK-REF22404 WORK)
                                            (IWORK-REF22406 IWORK))
      (%%ZTGSNA JOB HOWMNY SELECT-REF22390 N-REF22391 A-REF22392 LDA-REF22393
                B-REF22394 LDB-REF22395 VL-REF22396 LDVL-REF22397 VR-REF22398
                LDVR-REF22399 S-REF22400 DIF-REF22401 MM-REF22402 M-REF22403
                WORK-REF22404 LWORK-REF22405 IWORK-REF22406 INFO-REF22407))))

(CFFI:DEFCFUN ("ztgsy2_" %%ZTGSY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (RDSUM :POINTER)
  (RDSCAL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSY2
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    RDSUM RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSY2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22409 ':INT32) (M-REF22410 ':INT32)
                              (N-REF22411 ':INT32) (LDA-REF22413 ':INT32)
                              (LDB-REF22415 ':INT32) (LDC-REF22417 ':INT32)
                              (LDD-REF22419 ':INT32) (LDE-REF22421 ':INT32)
                              (LDF-REF22423 ':INT32) (SCALE-REF22424 ':DOUBLE)
                              (RDSUM-REF22425 ':DOUBLE)
                              (RDSCAL-REF22426 ':DOUBLE)
                              (INFO-REF22427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22409 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22410 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22411 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22413 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22415 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22417 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22419 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22421 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22423 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22424 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF22425 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF22426 :DOUBLE) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22412 A) (B-REF22414 B)
                                            (C-REF22416 C) (D-REF22418 D)
                                            (E-REF22420 E) (F-REF22422 F))
      (%%ZTGSY2 TRANS IJOB-REF22409 M-REF22410 N-REF22411 A-REF22412
                LDA-REF22413 B-REF22414 LDB-REF22415 C-REF22416 LDC-REF22417
                D-REF22418 LDD-REF22419 E-REF22420 LDE-REF22421 F-REF22422
                LDF-REF22423 SCALE-REF22424 RDSUM-REF22425 RDSCAL-REF22426
                INFO-REF22427))))

(CFFI:DEFCFUN ("ztgsyl_" %%ZTGSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (IJOB :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (D :POINTER)
  (LDD :POINTER)
  (E :POINTER)
  (LDE :POINTER)
  (F :POINTER)
  (LDF :POINTER)
  (SCALE :POINTER)
  (DIF :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTGSYL
                   (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE
                    DIF WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF22429 ':INT32) (M-REF22430 ':INT32)
                              (N-REF22431 ':INT32) (LDA-REF22433 ':INT32)
                              (LDB-REF22435 ':INT32) (LDC-REF22437 ':INT32)
                              (LDD-REF22439 ':INT32) (LDE-REF22441 ':INT32)
                              (LDF-REF22443 ':INT32) (SCALE-REF22444 ':DOUBLE)
                              (DIF-REF22445 ':DOUBLE) (LWORK-REF22447 ':INT32)
                              (INFO-REF22449 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF22429 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22430 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22431 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22433 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22435 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22437 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF22439 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF22441 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF22443 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22444 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF22445 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22447 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22449 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22432 A) (B-REF22434 B)
                                            (C-REF22436 C) (D-REF22438 D)
                                            (E-REF22440 E) (F-REF22442 F)
                                            (WORK-REF22446 WORK)
                                            (IWORK-REF22448 IWORK))
      (%%ZTGSYL TRANS IJOB-REF22429 M-REF22430 N-REF22431 A-REF22432
                LDA-REF22433 B-REF22434 LDB-REF22435 C-REF22436 LDC-REF22437
                D-REF22438 LDD-REF22439 E-REF22440 LDE-REF22441 F-REF22442
                LDF-REF22443 SCALE-REF22444 DIF-REF22445 WORK-REF22446
                LWORK-REF22447 IWORK-REF22448 INFO-REF22449))))

(CFFI:DEFCFUN ("ztpcon_" %%ZTPCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPCON (NORM UPLO DIAG N AP RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22453 ':INT32) (RCOND-REF22455 ':DOUBLE)
                              (INFO-REF22458 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22453 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22455 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22458 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22454 AP)
                                            (WORK-REF22456 WORK)
                                            (RWORK-REF22457 RWORK))
      (%%ZTPCON NORM UPLO DIAG N-REF22453 AP-REF22454 RCOND-REF22455
                WORK-REF22456 RWORK-REF22457 INFO-REF22458))))

(CFFI:DEFCFUN ("ztplqt_" %%ZTPLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22459 ':INT32) (N-REF22460 ':INT32)
                              (L-REF22461 ':INT32) (MB-REF22462 ':INT32)
                              (LDA-REF22464 ':INT32) (LDB-REF22466 ':INT32)
                              (LDT-REF22468 ':INT32) (INFO-REF22470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22459 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22460 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22461 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22462 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22464 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22466 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22468 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22463 A) (B-REF22465 B)
                                            (T-REF22467 T) (WORK-REF22469 WORK))
      (%%ZTPLQT M-REF22459 N-REF22460 L-REF22461 MB-REF22462 A-REF22463
                LDA-REF22464 B-REF22465 LDB-REF22466 T-REF22467 LDT-REF22468
                WORK-REF22469 INFO-REF22470))))

(CFFI:DEFCFUN ("ztplqt2_" %%ZTPLQT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22471 ':INT32) (N-REF22472 ':INT32)
                              (L-REF22473 ':INT32) (LDA-REF22475 ':INT32)
                              (LDB-REF22477 ':INT32) (LDT-REF22479 ':INT32)
                              (INFO-REF22480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22471 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22473 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22475 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22477 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22479 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22474 A) (B-REF22476 B)
                                            (T-REF22478 T))
      (%%ZTPLQT2 M-REF22471 N-REF22472 L-REF22473 A-REF22474 LDA-REF22475
                 B-REF22476 LDB-REF22477 T-REF22478 LDT-REF22479
                 INFO-REF22480))))

(CFFI:DEFCFUN ("ztpmlqt_" %%ZTPMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPMLQT
                   (SIDE TRANS M N K L MB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22483 ':INT32) (N-REF22484 ':INT32)
                              (K-REF22485 ':INT32) (L-REF22486 ':INT32)
                              (MB-REF22487 ':INT32) (LDV-REF22489 ':INT32)
                              (LDT-REF22491 ':INT32) (LDA-REF22493 ':INT32)
                              (LDB-REF22495 ':INT32) (INFO-REF22497 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22483 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22485 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22486 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF22487 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22489 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22491 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22493 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22495 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22497 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22488 V) (T-REF22490 T)
                                            (A-REF22492 A) (B-REF22494 B)
                                            (WORK-REF22496 WORK))
      (%%ZTPMLQT SIDE TRANS M-REF22483 N-REF22484 K-REF22485 L-REF22486
                 MB-REF22487 V-REF22488 LDV-REF22489 T-REF22490 LDT-REF22491
                 A-REF22492 LDA-REF22493 B-REF22494 LDB-REF22495 WORK-REF22496
                 INFO-REF22497))))

(CFFI:DEFCFUN ("ztpmqrt_" %%ZTPMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPMQRT
                   (SIDE TRANS M N K L NB V LDV T LDT A LDA B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22500 ':INT32) (N-REF22501 ':INT32)
                              (K-REF22502 ':INT32) (L-REF22503 ':INT32)
                              (NB-REF22504 ':INT32) (LDV-REF22506 ':INT32)
                              (LDT-REF22508 ':INT32) (LDA-REF22510 ':INT32)
                              (LDB-REF22512 ':INT32) (INFO-REF22514 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22500 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22501 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22502 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22503 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22504 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22506 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22508 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22510 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22512 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22514 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22505 V) (T-REF22507 T)
                                            (A-REF22509 A) (B-REF22511 B)
                                            (WORK-REF22513 WORK))
      (%%ZTPMQRT SIDE TRANS M-REF22500 N-REF22501 K-REF22502 L-REF22503
                 NB-REF22504 V-REF22505 LDV-REF22506 T-REF22507 LDT-REF22508
                 A-REF22509 LDA-REF22510 B-REF22511 LDB-REF22512 WORK-REF22513
                 INFO-REF22514))))

(CFFI:DEFCFUN ("ztpqrt_" %%ZTPQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPQRT (M N L NB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22515 ':INT32) (N-REF22516 ':INT32)
                              (L-REF22517 ':INT32) (NB-REF22518 ':INT32)
                              (LDA-REF22520 ':INT32) (LDB-REF22522 ':INT32)
                              (LDT-REF22524 ':INT32) (INFO-REF22526 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22515 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22516 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22517 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF22518 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22522 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22524 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22526 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22519 A) (B-REF22521 B)
                                            (T-REF22523 T) (WORK-REF22525 WORK))
      (%%ZTPQRT M-REF22515 N-REF22516 L-REF22517 NB-REF22518 A-REF22519
                LDA-REF22520 B-REF22521 LDB-REF22522 T-REF22523 LDT-REF22524
                WORK-REF22525 INFO-REF22526))))

(CFFI:DEFCFUN ("ztpqrt2_" %%ZTPQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22527 ':INT32) (N-REF22528 ':INT32)
                              (L-REF22529 ':INT32) (LDA-REF22531 ':INT32)
                              (LDB-REF22533 ':INT32) (LDT-REF22535 ':INT32)
                              (INFO-REF22536 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22527 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22528 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22529 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22531 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22535 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22536 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22530 A) (B-REF22532 B)
                                            (T-REF22534 T))
      (%%ZTPQRT2 M-REF22527 N-REF22528 L-REF22529 A-REF22530 LDA-REF22531
                 B-REF22532 LDB-REF22533 T-REF22534 LDT-REF22535
                 INFO-REF22536))))

(CFFI:DEFCFUN ("ztprfb_" %%ZTPRFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %ZTPRFB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB
                    WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22541 ':INT32) (N-REF22542 ':INT32)
                              (K-REF22543 ':INT32) (L-REF22544 ':INT32)
                              (LDV-REF22546 ':INT32) (LDT-REF22548 ':INT32)
                              (LDA-REF22550 ':INT32) (LDB-REF22552 ':INT32)
                              (LDWORK-REF22554 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22541 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22542 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22543 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF22544 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF22546 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22548 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22550 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22552 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22554 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF22545 V) (T-REF22547 T)
                                            (A-REF22549 A) (B-REF22551 B)
                                            (WORK-REF22553 WORK))
      (%%ZTPRFB SIDE TRANS DIRECT STOREV M-REF22541 N-REF22542 K-REF22543
                L-REF22544 V-REF22545 LDV-REF22546 T-REF22547 LDT-REF22548
                A-REF22549 LDA-REF22550 B-REF22551 LDB-REF22552 WORK-REF22553
                LDWORK-REF22554))))

(CFFI:DEFCFUN ("ztprfs_" %%ZTPRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPRFS
                   (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22558 ':INT32) (NRHS-REF22559 ':INT32)
                              (LDB-REF22562 ':INT32) (LDX-REF22564 ':INT32)
                              (INFO-REF22569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22558 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22559 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22562 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22564 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22560 AP) (B-REF22561 B)
                                            (X-REF22563 X) (FERR-REF22565 FERR)
                                            (BERR-REF22566 BERR)
                                            (WORK-REF22567 WORK)
                                            (RWORK-REF22568 RWORK))
      (%%ZTPRFS UPLO TRANS DIAG N-REF22558 NRHS-REF22559 AP-REF22560 B-REF22561
                LDB-REF22562 X-REF22563 LDX-REF22564 FERR-REF22565
                BERR-REF22566 WORK-REF22567 RWORK-REF22568 INFO-REF22569))))

(CFFI:DEFCFUN ("ztptri_" %%ZTPTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTRI (UPLO DIAG N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22572 ':INT32) (INFO-REF22574 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22574 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22573 AP))
      (%%ZTPTRI UPLO DIAG N-REF22572 AP-REF22573 INFO-REF22574))))

(CFFI:DEFCFUN ("ztptrs_" %%ZTPTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (AP :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22578 ':INT32) (NRHS-REF22579 ':INT32)
                              (LDB-REF22582 ':INT32) (INFO-REF22583 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22578 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22579 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22582 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22583 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22580 AP) (B-REF22581 B))
      (%%ZTPTRS UPLO TRANS DIAG N-REF22578 NRHS-REF22579 AP-REF22580 B-REF22581
                LDB-REF22582 INFO-REF22583))))

(CFFI:DEFCFUN ("ztpttf_" %%ZTPTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22586 ':INT32) (INFO-REF22589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22586 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22587 AP) (ARF-REF22588 ARF))
      (%%ZTPTTF TRANSR UPLO N-REF22586 AP-REF22587 ARF-REF22588
                INFO-REF22589))))

(CFFI:DEFCFUN ("ztpttr_" %%ZTPTTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTPTTR (UPLO N AP A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22591 ':INT32) (LDA-REF22594 ':INT32)
                              (INFO-REF22595 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22594 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22595 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF22592 AP) (A-REF22593 A))
      (%%ZTPTTR UPLO N-REF22591 AP-REF22592 A-REF22593 LDA-REF22594
                INFO-REF22595))))

(CFFI:DEFCFUN ("ztrcon_" %%ZTRCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRCON (NORM UPLO DIAG N A LDA RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22599 ':INT32) (LDA-REF22601 ':INT32)
                              (RCOND-REF22602 ':DOUBLE) (INFO-REF22605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22599 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22601 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF22602 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22600 A) (WORK-REF22603 WORK)
                                            (RWORK-REF22604 RWORK))
      (%%ZTRCON NORM UPLO DIAG N-REF22599 A-REF22600 LDA-REF22601
                RCOND-REF22602 WORK-REF22603 RWORK-REF22604 INFO-REF22605))))

(CFFI:DEFCFUN ("ztrevc_" %%ZTREVC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREVC
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22609 ':INT32) (LDT-REF22611 ':INT32)
                              (LDVL-REF22613 ':INT32) (LDVR-REF22615 ':INT32)
                              (MM-REF22616 ':INT32) (M-REF22617 ':INT32)
                              (INFO-REF22620 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22609 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22611 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22613 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22615 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22616 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22617 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22620 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22608 SELECT)
                                            (T-REF22610 T) (VL-REF22612 VL)
                                            (VR-REF22614 VR)
                                            (WORK-REF22618 WORK)
                                            (RWORK-REF22619 RWORK))
      (%%ZTREVC SIDE HOWMNY SELECT-REF22608 N-REF22609 T-REF22610 LDT-REF22611
                VL-REF22612 LDVL-REF22613 VR-REF22614 LDVR-REF22615 MM-REF22616
                M-REF22617 WORK-REF22618 RWORK-REF22619 INFO-REF22620))))

(CFFI:DEFCFUN ("ztrevc3_" %%ZTREVC3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREVC3
                   (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK LWORK
                    RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREVC3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22624 ':INT32) (LDT-REF22626 ':INT32)
                              (LDVL-REF22628 ':INT32) (LDVR-REF22630 ':INT32)
                              (MM-REF22631 ':INT32) (M-REF22632 ':INT32)
                              (LWORK-REF22634 ':INT32)
                              (LRWORK-REF22636 ':INT32) (INFO-REF22637 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22624 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22626 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22628 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22630 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22631 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22632 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22634 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22636 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22637 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22623 SELECT)
                                            (T-REF22625 T) (VL-REF22627 VL)
                                            (VR-REF22629 VR)
                                            (WORK-REF22633 WORK)
                                            (RWORK-REF22635 RWORK))
      (%%ZTREVC3 SIDE HOWMNY SELECT-REF22623 N-REF22624 T-REF22625 LDT-REF22626
                 VL-REF22627 LDVL-REF22628 VR-REF22629 LDVR-REF22630
                 MM-REF22631 M-REF22632 WORK-REF22633 LWORK-REF22634
                 RWORK-REF22635 LRWORK-REF22636 INFO-REF22637))))

(CFFI:DEFCFUN ("ztrexc_" %%ZTREXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IFST :POINTER)
  (ILST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREXC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22639 ':INT32) (LDT-REF22641 ':INT32)
                              (LDQ-REF22643 ':INT32) (IFST-REF22644 ':INT32)
                              (ILST-REF22645 ':INT32) (INFO-REF22646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22639 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22641 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22643 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF22644 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF22645 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22646 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF22640 T) (Q-REF22642 Q))
      (%%ZTREXC COMPQ N-REF22639 T-REF22640 LDT-REF22641 Q-REF22642
                LDQ-REF22643 IFST-REF22644 ILST-REF22645 INFO-REF22646))))

(CFFI:DEFCFUN ("ztrrfs_" %%ZTRRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRRFS
                   (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK
                    RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22650 ':INT32) (NRHS-REF22651 ':INT32)
                              (LDA-REF22653 ':INT32) (LDB-REF22655 ':INT32)
                              (LDX-REF22657 ':INT32) (INFO-REF22662 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22651 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22653 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22655 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF22657 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22662 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22652 A) (B-REF22654 B)
                                            (X-REF22656 X) (FERR-REF22658 FERR)
                                            (BERR-REF22659 BERR)
                                            (WORK-REF22660 WORK)
                                            (RWORK-REF22661 RWORK))
      (%%ZTRRFS UPLO TRANS DIAG N-REF22650 NRHS-REF22651 A-REF22652
                LDA-REF22653 B-REF22654 LDB-REF22655 X-REF22656 LDX-REF22657
                FERR-REF22658 BERR-REF22659 WORK-REF22660 RWORK-REF22661
                INFO-REF22662))))

(CFFI:DEFCFUN ("ztrsen_" %%ZTRSEN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (W :POINTER)
  (M :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSEN
                   (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSEN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        W)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22666 ':INT32) (LDT-REF22668 ':INT32)
                              (LDQ-REF22670 ':INT32) (M-REF22672 ':INT32)
                              (S-REF22673 ':DOUBLE) (SEP-REF22674 ':DOUBLE)
                              (LWORK-REF22676 ':INT32) (INFO-REF22677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22668 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF22670 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22672 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF22673 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF22674 :DOUBLE) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22676 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22677 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22665 SELECT)
                                            (T-REF22667 T) (Q-REF22669 Q)
                                            (W-REF22671 W) (WORK-REF22675 WORK))
      (%%ZTRSEN JOB COMPQ SELECT-REF22665 N-REF22666 T-REF22667 LDT-REF22668
                Q-REF22669 LDQ-REF22670 W-REF22671 M-REF22672 S-REF22673
                SEP-REF22674 WORK-REF22675 LWORK-REF22676 INFO-REF22677))))

(CFFI:DEFCFUN ("ztrsna_" %%ZTRSNA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (HOWMNY :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (S :POINTER)
  (SEP :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER)
  (RWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSNA
                   (JOB HOWMNY SELECT N T LDT VL LDVL VR LDVR S SEP MM M WORK
                    LDWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSNA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SEP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22681 ':INT32) (LDT-REF22683 ':INT32)
                              (LDVL-REF22685 ':INT32) (LDVR-REF22687 ':INT32)
                              (MM-REF22690 ':INT32) (M-REF22691 ':INT32)
                              (LDWORK-REF22693 ':INT32) (INFO-REF22695 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF22683 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF22685 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF22687 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF22690 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22691 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF22693 :INT32) LDWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22695 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF22680 SELECT)
                                            (T-REF22682 T) (VL-REF22684 VL)
                                            (VR-REF22686 VR) (S-REF22688 S)
                                            (SEP-REF22689 SEP)
                                            (WORK-REF22692 WORK)
                                            (RWORK-REF22694 RWORK))
      (%%ZTRSNA JOB HOWMNY SELECT-REF22680 N-REF22681 T-REF22682 LDT-REF22683
                VL-REF22684 LDVL-REF22685 VR-REF22686 LDVR-REF22687 S-REF22688
                SEP-REF22689 MM-REF22690 M-REF22691 WORK-REF22692
                LDWORK-REF22693 RWORK-REF22694 INFO-REF22695))))

(CFFI:DEFCFUN ("ztrsyl_" %%ZTRSYL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANA :STRING)
  (TRANB :STRING)
  (ISGN :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRSYL (TRANA TRANB ISGN M N A LDA B LDB C LDC SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSYL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISGN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISGN-REF22698 ':INT32) (M-REF22699 ':INT32)
                              (N-REF22700 ':INT32) (LDA-REF22702 ':INT32)
                              (LDB-REF22704 ':INT32) (LDC-REF22706 ':INT32)
                              (SCALE-REF22707 ':DOUBLE) (INFO-REF22708 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISGN-REF22698 :INT32) ISGN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22700 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22702 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22704 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF22706 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF22707 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22708 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22701 A) (B-REF22703 B)
                                            (C-REF22705 C))
      (%%ZTRSYL TRANA TRANB ISGN-REF22698 M-REF22699 N-REF22700 A-REF22701
                LDA-REF22702 B-REF22703 LDB-REF22704 C-REF22705 LDC-REF22706
                SCALE-REF22707 INFO-REF22708))))

(CFFI:DEFCFUN ("ztrti2_" %%ZTRTI2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTI2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22711 ':INT32) (LDA-REF22713 ':INT32)
                              (INFO-REF22714 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22711 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22713 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22714 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22712 A))
      (%%ZTRTI2 UPLO DIAG N-REF22711 A-REF22712 LDA-REF22713 INFO-REF22714))))

(CFFI:DEFCFUN ("ztrtri_" %%ZTRTRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTRI)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22717 ':INT32) (LDA-REF22719 ':INT32)
                              (INFO-REF22720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22717 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22719 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22718 A))
      (%%ZTRTRI UPLO DIAG N-REF22717 A-REF22718 LDA-REF22719 INFO-REF22720))))

(CFFI:DEFCFUN ("ztrtrs_" %%ZTRTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22724 ':INT32) (NRHS-REF22725 ':INT32)
                              (LDA-REF22727 ':INT32) (LDB-REF22729 ':INT32)
                              (INFO-REF22730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22724 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF22725 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22727 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF22729 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22730 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22726 A) (B-REF22728 B))
      (%%ZTRTRS UPLO TRANS DIAG N-REF22724 NRHS-REF22725 A-REF22726
                LDA-REF22727 B-REF22728 LDB-REF22729 INFO-REF22730))))

(CFFI:DEFCFUN ("ztrttf_" %%ZTRTTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ARF :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTTF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ARF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22733 ':INT32) (LDA-REF22735 ':INT32)
                              (INFO-REF22737 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22735 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22737 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22734 A) (ARF-REF22736 ARF))
      (%%ZTRTTF TRANSR UPLO N-REF22733 A-REF22734 LDA-REF22735 ARF-REF22736
                INFO-REF22737))))

(CFFI:DEFCFUN ("ztrttp_" %%ZTRTTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22739 ':INT32) (LDA-REF22741 ':INT32)
                              (INFO-REF22743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22741 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22743 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22740 A) (AP-REF22742 AP))
      (%%ZTRTTP UPLO N-REF22739 A-REF22740 LDA-REF22741 AP-REF22742
                INFO-REF22743))))

(CFFI:DEFCFUN ("ztzrzf_" %%ZTZRZF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTZRZF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22744 ':INT32) (N-REF22745 ':INT32)
                              (LDA-REF22747 ':INT32) (LWORK-REF22750 ':INT32)
                              (INFO-REF22751 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22744 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22745 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22747 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22750 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22751 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22746 A) (TAU-REF22748 TAU)
                                            (WORK-REF22749 WORK))
      (%%ZTZRZF M-REF22744 N-REF22745 A-REF22746 LDA-REF22747 TAU-REF22748
                WORK-REF22749 LWORK-REF22750 INFO-REF22751))))

(CFFI:DEFCFUN ("zunbdb_" %%ZUNBDB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (TAUQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB
                   (TRANS SIGNS M P Q X11 LDX11 X12 LDX12 X21 LDX21 X22 LDX22
                    THETA PHI TAUP1 TAUP2 TAUQ1 TAUQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22754 ':INT32) (P-REF22755 ':INT32)
                              (Q-REF22756 ':INT32) (LDX11-REF22758 ':INT32)
                              (LDX12-REF22760 ':INT32) (LDX21-REF22762 ':INT32)
                              (LDX22-REF22764 ':INT32) (LWORK-REF22772 ':INT32)
                              (INFO-REF22773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22754 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22755 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22756 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22758 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22760 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22762 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22764 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22772 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22757 X11)
                                            (X12-REF22759 X12)
                                            (X21-REF22761 X21)
                                            (X22-REF22763 X22)
                                            (THETA-REF22765 THETA)
                                            (PHI-REF22766 PHI)
                                            (TAUP1-REF22767 TAUP1)
                                            (TAUP2-REF22768 TAUP2)
                                            (TAUQ1-REF22769 TAUQ1)
                                            (TAUQ2-REF22770 TAUQ2)
                                            (WORK-REF22771 WORK))
      (%%ZUNBDB TRANS SIGNS M-REF22754 P-REF22755 Q-REF22756 X11-REF22757
                LDX11-REF22758 X12-REF22759 LDX12-REF22760 X21-REF22761
                LDX21-REF22762 X22-REF22763 LDX22-REF22764 THETA-REF22765
                PHI-REF22766 TAUP1-REF22767 TAUP2-REF22768 TAUQ1-REF22769
                TAUQ2-REF22770 WORK-REF22771 LWORK-REF22772 INFO-REF22773))))

(CFFI:DEFCFUN ("zunbdb1_" %%ZUNBDB1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB1
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22774 ':INT32) (P-REF22775 ':INT32)
                              (Q-REF22776 ':INT32) (LDX11-REF22778 ':INT32)
                              (LDX21-REF22780 ':INT32) (LWORK-REF22787 ':INT32)
                              (INFO-REF22788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22774 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22775 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22776 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22778 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22780 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22787 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22777 X11)
                                            (X21-REF22779 X21)
                                            (THETA-REF22781 THETA)
                                            (PHI-REF22782 PHI)
                                            (TAUP1-REF22783 TAUP1)
                                            (TAUP2-REF22784 TAUP2)
                                            (TAUQ1-REF22785 TAUQ1)
                                            (WORK-REF22786 WORK))
      (%%ZUNBDB1 M-REF22774 P-REF22775 Q-REF22776 X11-REF22777 LDX11-REF22778
                 X21-REF22779 LDX21-REF22780 THETA-REF22781 PHI-REF22782
                 TAUP1-REF22783 TAUP2-REF22784 TAUQ1-REF22785 WORK-REF22786
                 LWORK-REF22787 INFO-REF22788))))

(CFFI:DEFCFUN ("zunbdb2_" %%ZUNBDB2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB2
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22789 ':INT32) (P-REF22790 ':INT32)
                              (Q-REF22791 ':INT32) (LDX11-REF22793 ':INT32)
                              (LDX21-REF22795 ':INT32) (LWORK-REF22802 ':INT32)
                              (INFO-REF22803 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22789 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22790 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22791 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22793 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22795 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22802 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22803 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22792 X11)
                                            (X21-REF22794 X21)
                                            (THETA-REF22796 THETA)
                                            (PHI-REF22797 PHI)
                                            (TAUP1-REF22798 TAUP1)
                                            (TAUP2-REF22799 TAUP2)
                                            (TAUQ1-REF22800 TAUQ1)
                                            (WORK-REF22801 WORK))
      (%%ZUNBDB2 M-REF22789 P-REF22790 Q-REF22791 X11-REF22792 LDX11-REF22793
                 X21-REF22794 LDX21-REF22795 THETA-REF22796 PHI-REF22797
                 TAUP1-REF22798 TAUP2-REF22799 TAUQ1-REF22800 WORK-REF22801
                 LWORK-REF22802 INFO-REF22803))))

(CFFI:DEFCFUN ("zunbdb3_" %%ZUNBDB3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB3
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22804 ':INT32) (P-REF22805 ':INT32)
                              (Q-REF22806 ':INT32) (LDX11-REF22808 ':INT32)
                              (LDX21-REF22810 ':INT32) (LWORK-REF22817 ':INT32)
                              (INFO-REF22818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22804 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22805 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22806 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22808 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22810 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22817 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22818 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22807 X11)
                                            (X21-REF22809 X21)
                                            (THETA-REF22811 THETA)
                                            (PHI-REF22812 PHI)
                                            (TAUP1-REF22813 TAUP1)
                                            (TAUP2-REF22814 TAUP2)
                                            (TAUQ1-REF22815 TAUQ1)
                                            (WORK-REF22816 WORK))
      (%%ZUNBDB3 M-REF22804 P-REF22805 Q-REF22806 X11-REF22807 LDX11-REF22808
                 X21-REF22809 LDX21-REF22810 THETA-REF22811 PHI-REF22812
                 TAUP1-REF22813 TAUP2-REF22814 TAUQ1-REF22815 WORK-REF22816
                 LWORK-REF22817 INFO-REF22818))))

(CFFI:DEFCFUN ("zunbdb4_" %%ZUNBDB4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (PHI :POINTER)
  (TAUP1 :POINTER)
  (TAUP2 :POINTER)
  (TAUQ1 :POINTER)
  (PHANTOM :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB4
                   (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1
                    PHANTOM WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUP2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAUQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        PHANTOM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22819 ':INT32) (P-REF22820 ':INT32)
                              (Q-REF22821 ':INT32) (LDX11-REF22823 ':INT32)
                              (LDX21-REF22825 ':INT32) (LWORK-REF22833 ':INT32)
                              (INFO-REF22834 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22819 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22820 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22821 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22823 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22825 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22833 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22834 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22822 X11)
                                            (X21-REF22824 X21)
                                            (THETA-REF22826 THETA)
                                            (PHI-REF22827 PHI)
                                            (TAUP1-REF22828 TAUP1)
                                            (TAUP2-REF22829 TAUP2)
                                            (TAUQ1-REF22830 TAUQ1)
                                            (PHANTOM-REF22831 PHANTOM)
                                            (WORK-REF22832 WORK))
      (%%ZUNBDB4 M-REF22819 P-REF22820 Q-REF22821 X11-REF22822 LDX11-REF22823
                 X21-REF22824 LDX21-REF22825 THETA-REF22826 PHI-REF22827
                 TAUP1-REF22828 TAUP2-REF22829 TAUQ1-REF22830 PHANTOM-REF22831
                 WORK-REF22832 LWORK-REF22833 INFO-REF22834))))

(CFFI:DEFCFUN ("zunbdb5_" %%ZUNBDB5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB5
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22835 ':INT32) (M2-REF22836 ':INT32)
                              (N-REF22837 ':INT32) (INCX1-REF22839 ':INT32)
                              (INCX2-REF22841 ':INT32) (LDQ1-REF22843 ':INT32)
                              (LDQ2-REF22845 ':INT32) (LWORK-REF22847 ':INT32)
                              (INFO-REF22848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22835 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22836 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22837 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22839 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22841 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22843 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22845 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22847 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22838 X1) (X2-REF22840 X2)
                                            (Q1-REF22842 Q1) (Q2-REF22844 Q2)
                                            (WORK-REF22846 WORK))
      (%%ZUNBDB5 M1-REF22835 M2-REF22836 N-REF22837 X1-REF22838 INCX1-REF22839
                 X2-REF22840 INCX2-REF22841 Q1-REF22842 LDQ1-REF22843
                 Q2-REF22844 LDQ2-REF22845 WORK-REF22846 LWORK-REF22847
                 INFO-REF22848))))

(CFFI:DEFCFUN ("zunbdb6_" %%ZUNBDB6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M1 :POINTER)
  (M2 :POINTER)
  (N :POINTER)
  (X1 :POINTER)
  (INCX1 :POINTER)
  (X2 :POINTER)
  (INCX2 :POINTER)
  (Q1 :POINTER)
  (LDQ1 :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNBDB6
                   (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF22849 ':INT32) (M2-REF22850 ':INT32)
                              (N-REF22851 ':INT32) (INCX1-REF22853 ':INT32)
                              (INCX2-REF22855 ':INT32) (LDQ1-REF22857 ':INT32)
                              (LDQ2-REF22859 ':INT32) (LWORK-REF22861 ':INT32)
                              (INFO-REF22862 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF22849 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF22850 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22851 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF22853 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF22855 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF22857 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF22859 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22861 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22862 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF22852 X1) (X2-REF22854 X2)
                                            (Q1-REF22856 Q1) (Q2-REF22858 Q2)
                                            (WORK-REF22860 WORK))
      (%%ZUNBDB6 M1-REF22849 M2-REF22850 N-REF22851 X1-REF22852 INCX1-REF22853
                 X2-REF22854 INCX2-REF22855 Q1-REF22856 LDQ1-REF22857
                 Q2-REF22858 LDQ2-REF22859 WORK-REF22860 LWORK-REF22861
                 INFO-REF22862))))

(CFFI:DEFCFUN ("zuncsd_" %%ZUNCSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (JOBV2T :STRING)
  (TRANS :STRING)
  (SIGNS :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X12 :POINTER)
  (LDX12 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (X22 :POINTER)
  (LDX22 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (V2T :POINTER)
  (LDV2T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNCSD
                   (JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M P Q X11 LDX11 X12
                    LDX12 X21 LDX21 X22 LDX22 THETA U1 LDU1 U2 LDU2 V1T LDV1T
                    V2T LDV2T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIGNS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X12)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX12)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX22)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V2T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22869 ':INT32) (P-REF22870 ':INT32)
                              (Q-REF22871 ':INT32) (LDX11-REF22873 ':INT32)
                              (LDX12-REF22875 ':INT32) (LDX21-REF22877 ':INT32)
                              (LDX22-REF22879 ':INT32) (LDU1-REF22882 ':INT32)
                              (LDU2-REF22884 ':INT32) (LDV1T-REF22886 ':INT32)
                              (LDV2T-REF22888 ':INT32) (LWORK-REF22890 ':INT32)
                              (LRWORK-REF22892 ':INT32) (INFO-REF22894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22869 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22870 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22871 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22873 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX12-REF22875 :INT32) LDX12)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22877 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX22-REF22879 :INT32) LDX22)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22882 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22884 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22886 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF22888 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22890 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22892 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22872 X11)
                                            (X12-REF22874 X12)
                                            (X21-REF22876 X21)
                                            (X22-REF22878 X22)
                                            (THETA-REF22880 THETA)
                                            (U1-REF22881 U1) (U2-REF22883 U2)
                                            (V1T-REF22885 V1T)
                                            (V2T-REF22887 V2T)
                                            (WORK-REF22889 WORK)
                                            (RWORK-REF22891 RWORK)
                                            (IWORK-REF22893 IWORK))
      (%%ZUNCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS SIGNS M-REF22869 P-REF22870
                Q-REF22871 X11-REF22872 LDX11-REF22873 X12-REF22874
                LDX12-REF22875 X21-REF22876 LDX21-REF22877 X22-REF22878
                LDX22-REF22879 THETA-REF22880 U1-REF22881 LDU1-REF22882
                U2-REF22883 LDU2-REF22884 V1T-REF22885 LDV1T-REF22886
                V2T-REF22887 LDV2T-REF22888 WORK-REF22889 LWORK-REF22890
                RWORK-REF22891 LRWORK-REF22892 IWORK-REF22893 INFO-REF22894))))

(CFFI:DEFCFUN ("zuncsd2by1_" %%ZUNCSD2BY1 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU1 :STRING)
  (JOBU2 :STRING)
  (JOBV1T :STRING)
  (M :POINTER)
  (P :POINTER)
  (Q :POINTER)
  (X11 :POINTER)
  (LDX11 :POINTER)
  (X21 :POINTER)
  (LDX21 :POINTER)
  (THETA :POINTER)
  (U1 :POINTER)
  (LDU1 :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (V1T :POINTER)
  (LDV1T :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNCSD2BY1
                   (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1
                    U2 LDU2 V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNCSD2BY1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X11)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X21)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        THETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        V1T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22898 ':INT32) (P-REF22899 ':INT32)
                              (Q-REF22900 ':INT32) (LDX11-REF22902 ':INT32)
                              (LDX21-REF22904 ':INT32) (LDU1-REF22907 ':INT32)
                              (LDU2-REF22909 ':INT32) (LDV1T-REF22911 ':INT32)
                              (LWORK-REF22913 ':INT32)
                              (LRWORK-REF22915 ':INT32) (INFO-REF22917 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22898 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF22899 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF22900 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF22902 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF22904 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF22907 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF22909 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF22911 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22913 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF22915 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22917 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF22901 X11)
                                            (X21-REF22903 X21)
                                            (THETA-REF22905 THETA)
                                            (U1-REF22906 U1) (U2-REF22908 U2)
                                            (V1T-REF22910 V1T)
                                            (WORK-REF22912 WORK)
                                            (RWORK-REF22914 RWORK)
                                            (IWORK-REF22916 IWORK))
      (%%ZUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF22898 P-REF22899 Q-REF22900
                    X11-REF22901 LDX11-REF22902 X21-REF22903 LDX21-REF22904
                    THETA-REF22905 U1-REF22906 LDU1-REF22907 U2-REF22908
                    LDU2-REF22909 V1T-REF22910 LDV1T-REF22911 WORK-REF22912
                    LWORK-REF22913 RWORK-REF22914 LRWORK-REF22915
                    IWORK-REF22916 INFO-REF22917))))

(CFFI:DEFCFUN ("zung2l_" %%ZUNG2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2L)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22918 ':INT32) (N-REF22919 ':INT32)
                              (K-REF22920 ':INT32) (LDA-REF22922 ':INT32)
                              (INFO-REF22925 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22918 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22919 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22920 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22922 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22925 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22921 A) (TAU-REF22923 TAU)
                                            (WORK-REF22924 WORK))
      (%%ZUNG2L M-REF22918 N-REF22919 K-REF22920 A-REF22921 LDA-REF22922
                TAU-REF22923 WORK-REF22924 INFO-REF22925))))

(CFFI:DEFCFUN ("zung2r_" %%ZUNG2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNG2R (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNG2R)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22926 ':INT32) (N-REF22927 ':INT32)
                              (K-REF22928 ':INT32) (LDA-REF22930 ':INT32)
                              (INFO-REF22933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22926 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22928 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22930 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22929 A) (TAU-REF22931 TAU)
                                            (WORK-REF22932 WORK))
      (%%ZUNG2R M-REF22926 N-REF22927 K-REF22928 A-REF22929 LDA-REF22930
                TAU-REF22931 WORK-REF22932 INFO-REF22933))))

(CFFI:DEFCFUN ("zungbr_" %%ZUNGBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22935 ':INT32) (N-REF22936 ':INT32)
                              (K-REF22937 ':INT32) (LDA-REF22939 ':INT32)
                              (LWORK-REF22942 ':INT32) (INFO-REF22943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22935 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22937 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22939 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22942 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22943 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22938 A) (TAU-REF22940 TAU)
                                            (WORK-REF22941 WORK))
      (%%ZUNGBR VECT M-REF22935 N-REF22936 K-REF22937 A-REF22938 LDA-REF22939
                TAU-REF22940 WORK-REF22941 LWORK-REF22942 INFO-REF22943))))

(CFFI:DEFCFUN ("zunghr_" %%ZUNGHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGHR (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGHR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF22944 ':INT32) (ILO-REF22945 ':INT32)
                              (IHI-REF22946 ':INT32) (LDA-REF22948 ':INT32)
                              (LWORK-REF22951 ':INT32) (INFO-REF22952 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22944 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF22945 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF22946 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22948 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22951 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22952 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22947 A) (TAU-REF22949 TAU)
                                            (WORK-REF22950 WORK))
      (%%ZUNGHR N-REF22944 ILO-REF22945 IHI-REF22946 A-REF22947 LDA-REF22948
                TAU-REF22949 WORK-REF22950 LWORK-REF22951 INFO-REF22952))))

(CFFI:DEFCFUN ("zungl2_" %%ZUNGL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22953 ':INT32) (N-REF22954 ':INT32)
                              (K-REF22955 ':INT32) (LDA-REF22957 ':INT32)
                              (INFO-REF22960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22953 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22954 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22955 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22957 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22956 A) (TAU-REF22958 TAU)
                                            (WORK-REF22959 WORK))
      (%%ZUNGL2 M-REF22953 N-REF22954 K-REF22955 A-REF22956 LDA-REF22957
                TAU-REF22958 WORK-REF22959 INFO-REF22960))))

(CFFI:DEFCFUN ("zunglq_" %%ZUNGLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGLQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22961 ':INT32) (N-REF22962 ':INT32)
                              (K-REF22963 ':INT32) (LDA-REF22965 ':INT32)
                              (LWORK-REF22968 ':INT32) (INFO-REF22969 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22961 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22962 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22963 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22965 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22968 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22969 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22964 A) (TAU-REF22966 TAU)
                                            (WORK-REF22967 WORK))
      (%%ZUNGLQ M-REF22961 N-REF22962 K-REF22963 A-REF22964 LDA-REF22965
                TAU-REF22966 WORK-REF22967 LWORK-REF22968 INFO-REF22969))))

(CFFI:DEFCFUN ("zungql_" %%ZUNGQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGQL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22970 ':INT32) (N-REF22971 ':INT32)
                              (K-REF22972 ':INT32) (LDA-REF22974 ':INT32)
                              (LWORK-REF22977 ':INT32) (INFO-REF22978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22970 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22972 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22974 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22977 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22973 A) (TAU-REF22975 TAU)
                                            (WORK-REF22976 WORK))
      (%%ZUNGQL M-REF22970 N-REF22971 K-REF22972 A-REF22973 LDA-REF22974
                TAU-REF22975 WORK-REF22976 LWORK-REF22977 INFO-REF22978))))

(CFFI:DEFCFUN ("zungqr_" %%ZUNGQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGQR (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22979 ':INT32) (N-REF22980 ':INT32)
                              (K-REF22981 ':INT32) (LDA-REF22983 ':INT32)
                              (LWORK-REF22986 ':INT32) (INFO-REF22987 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22979 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22980 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22981 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22983 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF22986 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22987 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22982 A) (TAU-REF22984 TAU)
                                            (WORK-REF22985 WORK))
      (%%ZUNGQR M-REF22979 N-REF22980 K-REF22981 A-REF22982 LDA-REF22983
                TAU-REF22984 WORK-REF22985 LWORK-REF22986 INFO-REF22987))))

(CFFI:DEFCFUN ("zungr2_" %%ZUNGR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22988 ':INT32) (N-REF22989 ':INT32)
                              (K-REF22990 ':INT32) (LDA-REF22992 ':INT32)
                              (INFO-REF22995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22988 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22990 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF22992 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF22995 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22991 A) (TAU-REF22993 TAU)
                                            (WORK-REF22994 WORK))
      (%%ZUNGR2 M-REF22988 N-REF22989 K-REF22990 A-REF22991 LDA-REF22992
                TAU-REF22993 WORK-REF22994 INFO-REF22995))))

(CFFI:DEFCFUN ("zungrq_" %%ZUNGRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGRQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF22996 ':INT32) (N-REF22997 ':INT32)
                              (K-REF22998 ':INT32) (LDA-REF23000 ':INT32)
                              (LWORK-REF23003 ':INT32) (INFO-REF23004 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF22996 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF22997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF22998 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23000 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23003 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23004 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF22999 A) (TAU-REF23001 TAU)
                                            (WORK-REF23002 WORK))
      (%%ZUNGRQ M-REF22996 N-REF22997 K-REF22998 A-REF22999 LDA-REF23000
                TAU-REF23001 WORK-REF23002 LWORK-REF23003 INFO-REF23004))))

(CFFI:DEFCFUN ("zungtr_" %%ZUNGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNGTR (UPLO N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23006 ':INT32) (LDA-REF23008 ':INT32)
                              (LWORK-REF23011 ':INT32) (INFO-REF23012 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23008 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23011 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23012 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23007 A) (TAU-REF23009 TAU)
                                            (WORK-REF23010 WORK))
      (%%ZUNGTR UPLO N-REF23006 A-REF23007 LDA-REF23008 TAU-REF23009
                WORK-REF23010 LWORK-REF23011 INFO-REF23012))))

(CFFI:DEFCFUN ("zunm22_" %%ZUNM22 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM22 (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM22)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23015 ':INT32) (N-REF23016 ':INT32)
                              (N1-REF23017 ':INT32) (N2-REF23018 ':INT32)
                              (LDQ-REF23020 ':INT32) (LDC-REF23022 ':INT32)
                              (LWORK-REF23024 ':INT32) (INFO-REF23025 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23015 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF23017 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF23018 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23020 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23022 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23024 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23025 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF23019 Q) (C-REF23021 C)
                                            (WORK-REF23023 WORK))
      (%%ZUNM22 SIDE TRANS M-REF23015 N-REF23016 N1-REF23017 N2-REF23018
                Q-REF23019 LDQ-REF23020 C-REF23021 LDC-REF23022 WORK-REF23023
                LWORK-REF23024 INFO-REF23025))))

(CFFI:DEFCFUN ("zunm2l_" %%ZUNM2L :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM2L)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23028 ':INT32) (N-REF23029 ':INT32)
                              (K-REF23030 ':INT32) (LDA-REF23032 ':INT32)
                              (LDC-REF23035 ':INT32) (INFO-REF23037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23028 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23029 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23030 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23032 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23035 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23031 A) (TAU-REF23033 TAU)
                                            (C-REF23034 C) (WORK-REF23036 WORK))
      (%%ZUNM2L SIDE TRANS M-REF23028 N-REF23029 K-REF23030 A-REF23031
                LDA-REF23032 TAU-REF23033 C-REF23034 LDC-REF23035 WORK-REF23036
                INFO-REF23037))))

(CFFI:DEFCFUN ("zunm2r_" %%ZUNM2R :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNM2R (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM2R)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23040 ':INT32) (N-REF23041 ':INT32)
                              (K-REF23042 ':INT32) (LDA-REF23044 ':INT32)
                              (LDC-REF23047 ':INT32) (INFO-REF23049 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23040 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23041 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23042 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23047 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23049 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23043 A) (TAU-REF23045 TAU)
                                            (C-REF23046 C) (WORK-REF23048 WORK))
      (%%ZUNM2R SIDE TRANS M-REF23040 N-REF23041 K-REF23042 A-REF23043
                LDA-REF23044 TAU-REF23045 C-REF23046 LDC-REF23047 WORK-REF23048
                INFO-REF23049))))

(CFFI:DEFCFUN ("zunmbr_" %%ZUNMBR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMBR
                   (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23053 ':INT32) (N-REF23054 ':INT32)
                              (K-REF23055 ':INT32) (LDA-REF23057 ':INT32)
                              (LDC-REF23060 ':INT32) (LWORK-REF23062 ':INT32)
                              (INFO-REF23063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23053 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23054 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23055 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23057 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23060 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23062 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23063 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23056 A) (TAU-REF23058 TAU)
                                            (C-REF23059 C) (WORK-REF23061 WORK))
      (%%ZUNMBR VECT SIDE TRANS M-REF23053 N-REF23054 K-REF23055 A-REF23056
                LDA-REF23057 TAU-REF23058 C-REF23059 LDC-REF23060 WORK-REF23061
                LWORK-REF23062 INFO-REF23063))))

(CFFI:DEFCFUN ("zunmhr_" %%ZUNMHR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMHR
                   (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMHR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23066 ':INT32) (N-REF23067 ':INT32)
                              (ILO-REF23068 ':INT32) (IHI-REF23069 ':INT32)
                              (LDA-REF23071 ':INT32) (LDC-REF23074 ':INT32)
                              (LWORK-REF23076 ':INT32) (INFO-REF23077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23066 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF23068 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF23069 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23071 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23074 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23076 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23070 A) (TAU-REF23072 TAU)
                                            (C-REF23073 C) (WORK-REF23075 WORK))
      (%%ZUNMHR SIDE TRANS M-REF23066 N-REF23067 ILO-REF23068 IHI-REF23069
                A-REF23070 LDA-REF23071 TAU-REF23072 C-REF23073 LDC-REF23074
                WORK-REF23075 LWORK-REF23076 INFO-REF23077))))

(CFFI:DEFCFUN ("zunml2_" %%ZUNML2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNML2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23080 ':INT32) (N-REF23081 ':INT32)
                              (K-REF23082 ':INT32) (LDA-REF23084 ':INT32)
                              (LDC-REF23087 ':INT32) (INFO-REF23089 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23080 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23081 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23082 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23084 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23087 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23089 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23083 A) (TAU-REF23085 TAU)
                                            (C-REF23086 C) (WORK-REF23088 WORK))
      (%%ZUNML2 SIDE TRANS M-REF23080 N-REF23081 K-REF23082 A-REF23083
                LDA-REF23084 TAU-REF23085 C-REF23086 LDC-REF23087 WORK-REF23088
                INFO-REF23089))))

(CFFI:DEFCFUN ("zunmlq_" %%ZUNMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMLQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23092 ':INT32) (N-REF23093 ':INT32)
                              (K-REF23094 ':INT32) (LDA-REF23096 ':INT32)
                              (LDC-REF23099 ':INT32) (LWORK-REF23101 ':INT32)
                              (INFO-REF23102 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23092 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23093 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23094 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23096 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23099 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23101 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23102 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23095 A) (TAU-REF23097 TAU)
                                            (C-REF23098 C) (WORK-REF23100 WORK))
      (%%ZUNMLQ SIDE TRANS M-REF23092 N-REF23093 K-REF23094 A-REF23095
                LDA-REF23096 TAU-REF23097 C-REF23098 LDC-REF23099 WORK-REF23100
                LWORK-REF23101 INFO-REF23102))))

(CFFI:DEFCFUN ("zunmql_" %%ZUNMQL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMQL (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMQL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23105 ':INT32) (N-REF23106 ':INT32)
                              (K-REF23107 ':INT32) (LDA-REF23109 ':INT32)
                              (LDC-REF23112 ':INT32) (LWORK-REF23114 ':INT32)
                              (INFO-REF23115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23105 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23106 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23107 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23109 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23112 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23114 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23108 A) (TAU-REF23110 TAU)
                                            (C-REF23111 C) (WORK-REF23113 WORK))
      (%%ZUNMQL SIDE TRANS M-REF23105 N-REF23106 K-REF23107 A-REF23108
                LDA-REF23109 TAU-REF23110 C-REF23111 LDC-REF23112 WORK-REF23113
                LWORK-REF23114 INFO-REF23115))))

(CFFI:DEFCFUN ("zunmqr_" %%ZUNMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMQR (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23118 ':INT32) (N-REF23119 ':INT32)
                              (K-REF23120 ':INT32) (LDA-REF23122 ':INT32)
                              (LDC-REF23125 ':INT32) (LWORK-REF23127 ':INT32)
                              (INFO-REF23128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23118 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23119 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23120 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23122 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23125 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23127 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23128 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23121 A) (TAU-REF23123 TAU)
                                            (C-REF23124 C) (WORK-REF23126 WORK))
      (%%ZUNMQR SIDE TRANS M-REF23118 N-REF23119 K-REF23120 A-REF23121
                LDA-REF23122 TAU-REF23123 C-REF23124 LDC-REF23125 WORK-REF23126
                LWORK-REF23127 INFO-REF23128))))

(CFFI:DEFCFUN ("zunmr2_" %%ZUNMR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23131 ':INT32) (N-REF23132 ':INT32)
                              (K-REF23133 ':INT32) (LDA-REF23135 ':INT32)
                              (LDC-REF23138 ':INT32) (INFO-REF23140 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23131 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23133 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23135 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23138 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23140 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23134 A) (TAU-REF23136 TAU)
                                            (C-REF23137 C) (WORK-REF23139 WORK))
      (%%ZUNMR2 SIDE TRANS M-REF23131 N-REF23132 K-REF23133 A-REF23134
                LDA-REF23135 TAU-REF23136 C-REF23137 LDC-REF23138 WORK-REF23139
                INFO-REF23140))))

(CFFI:DEFCFUN ("zunmr3_" %%ZUNMR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMR3 (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMR3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23143 ':INT32) (N-REF23144 ':INT32)
                              (K-REF23145 ':INT32) (L-REF23146 ':INT32)
                              (LDA-REF23148 ':INT32) (LDC-REF23151 ':INT32)
                              (INFO-REF23153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23143 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23145 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23146 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23148 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23151 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23153 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23147 A) (TAU-REF23149 TAU)
                                            (C-REF23150 C) (WORK-REF23152 WORK))
      (%%ZUNMR3 SIDE TRANS M-REF23143 N-REF23144 K-REF23145 L-REF23146
                A-REF23147 LDA-REF23148 TAU-REF23149 C-REF23150 LDC-REF23151
                WORK-REF23152 INFO-REF23153))))

(CFFI:DEFCFUN ("zunmrq_" %%ZUNMRQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMRQ (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23156 ':INT32) (N-REF23157 ':INT32)
                              (K-REF23158 ':INT32) (LDA-REF23160 ':INT32)
                              (LDC-REF23163 ':INT32) (LWORK-REF23165 ':INT32)
                              (INFO-REF23166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23156 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23157 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23158 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23160 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23163 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23165 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23159 A) (TAU-REF23161 TAU)
                                            (C-REF23162 C) (WORK-REF23164 WORK))
      (%%ZUNMRQ SIDE TRANS M-REF23156 N-REF23157 K-REF23158 A-REF23159
                LDA-REF23160 TAU-REF23161 C-REF23162 LDC-REF23163 WORK-REF23164
                LWORK-REF23165 INFO-REF23166))))

(CFFI:DEFCFUN ("zunmrz_" %%ZUNMRZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMRZ (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMRZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23169 ':INT32) (N-REF23170 ':INT32)
                              (K-REF23171 ':INT32) (L-REF23172 ':INT32)
                              (LDA-REF23174 ':INT32) (LDC-REF23177 ':INT32)
                              (LWORK-REF23179 ':INT32) (INFO-REF23180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23169 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23170 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23171 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF23172 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23174 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23177 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23179 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23173 A) (TAU-REF23175 TAU)
                                            (C-REF23176 C) (WORK-REF23178 WORK))
      (%%ZUNMRZ SIDE TRANS M-REF23169 N-REF23170 K-REF23171 L-REF23172
                A-REF23173 LDA-REF23174 TAU-REF23175 C-REF23176 LDC-REF23177
                WORK-REF23178 LWORK-REF23179 INFO-REF23180))))

(CFFI:DEFCFUN ("zunmtr_" %%ZUNMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUNMTR
                   (SIDE UPLO TRANS M N A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23184 ':INT32) (N-REF23185 ':INT32)
                              (LDA-REF23187 ':INT32) (LDC-REF23190 ':INT32)
                              (LWORK-REF23192 ':INT32) (INFO-REF23193 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23184 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23187 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23190 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF23192 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23193 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23186 A) (TAU-REF23188 TAU)
                                            (C-REF23189 C) (WORK-REF23191 WORK))
      (%%ZUNMTR SIDE UPLO TRANS M-REF23184 N-REF23185 A-REF23186 LDA-REF23187
                TAU-REF23188 C-REF23189 LDC-REF23190 WORK-REF23191
                LWORK-REF23192 INFO-REF23193))))

(CFFI:DEFCFUN ("zupgtr_" %%ZUPGTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPGTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23195 ':INT32) (LDQ-REF23199 ':INT32)
                              (INFO-REF23201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23195 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF23199 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23196 AP) (TAU-REF23197 TAU)
                                            (Q-REF23198 Q) (WORK-REF23200 WORK))
      (%%ZUPGTR UPLO N-REF23195 AP-REF23196 TAU-REF23197 Q-REF23198
                LDQ-REF23199 WORK-REF23200 INFO-REF23201))))

(CFFI:DEFCFUN ("zupmtr_" %%ZUPMTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (AP :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %ZUPMTR (SIDE UPLO TRANS M N AP TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUPMTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23205 ':INT32) (N-REF23206 ':INT32)
                              (LDC-REF23210 ':INT32) (INFO-REF23212 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23205 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23206 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23210 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF23212 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23207 AP) (TAU-REF23208 TAU)
                                            (C-REF23209 C) (WORK-REF23211 WORK))
      (%%ZUPMTR SIDE UPLO TRANS M-REF23205 N-REF23206 AP-REF23207 TAU-REF23208
                C-REF23209 LDC-REF23210 WORK-REF23211 INFO-REF23212))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%ZLANHF %ZLANHF %%ZLANHP %ZLANHP %%ZLANHS %ZLANHS
  %%ZLANHT %ZLANHT %%ZLANSB %ZLANSB %%ZLANSP %ZLANSP %%ZLANSY %ZLANSY %%ZLANTB
  %ZLANTB %%ZLANTP %ZLANTP %%ZLANTR %ZLANTR %%ZLAPLL %ZLAPLL %%ZLAPMR %ZLAPMR
  %%ZLAPMT %ZLAPMT %%ZLAQGB %ZLAQGB %%ZLAQGE %ZLAQGE %%ZLAQHB %ZLAQHB %%ZLAQHE
  %ZLAQHE %%ZLAQHP %ZLAQHP %%ZLAQP2 %ZLAQP2 %%ZLAQPS %ZLAQPS %%ZLAQR0 %ZLAQR0
  %%ZLAQR1 %ZLAQR1 %%ZLAQR2 %ZLAQR2 %%ZLAQR3 %ZLAQR3 %%ZLAQR4 %ZLAQR4 %%ZLAQR5
  %ZLAQR5 %%ZLAQSB %ZLAQSB %%ZLAQSP %ZLAQSP %%ZLAQSY %ZLAQSY %%ZLAR1V %ZLAR1V
  %%ZLAR2V %ZLAR2V %%ZLARCM %ZLARCM %%ZLARF %ZLARF %%ZLARFB %ZLARFB %%ZLARFG
  %ZLARFG %%ZLARFGP %ZLARFGP %%ZLARFT %ZLARFT %%ZLARFX %ZLARFX %%ZLARFY %ZLARFY
  %%ZLARGV %ZLARGV %%ZLARNV %ZLARNV %%ZLARRV %ZLARRV %%ZLARSCL2 %ZLARSCL2
  %%ZLARTG %ZLARTG %%ZLARTV %ZLARTV %%ZLARZ %ZLARZ %%ZLARZB %ZLARZB %%ZLARZT
  %ZLARZT %%ZLASCL %ZLASCL %%ZLASCL2 %ZLASCL2 %%ZLASET %ZLASET %%ZLASR %ZLASR
  %%ZLASSQ %ZLASSQ %%ZLASWLQ %ZLASWLQ %%ZLASWP %ZLASWP %%ZLASYF %ZLASYF
  %%ZLASYF_AA %ZLASYF_AA %%ZLASYF_RK %ZLASYF_RK %%ZLASYF_ROOK %ZLASYF_ROOK
  %%ZLAT2C %ZLAT2C %%ZLATBS %ZLATBS %%ZLATDF %ZLATDF %%ZLATPS %ZLATPS %%ZLATRD
  %ZLATRD %%ZLATRS %ZLATRS %%ZLATRZ %ZLATRZ %%ZLATSQR %ZLATSQR %%ZLAUU2 %ZLAUU2
  %%ZLAUUM %ZLAUUM %%ZPBCON %ZPBCON %%ZPBEQU %ZPBEQU %%ZPBRFS %ZPBRFS %%ZPBSTF
  %ZPBSTF %%ZPBSV %ZPBSV %%ZPBSVX %ZPBSVX %%ZPBTF2 %ZPBTF2 %%ZPBTRF %ZPBTRF
  %%ZPBTRS %ZPBTRS %%ZPFTRF %ZPFTRF %%ZPFTRI %ZPFTRI %%ZPFTRS %ZPFTRS %%ZPOCON
  %ZPOCON %%ZPOEQU %ZPOEQU %%ZPOEQUB %ZPOEQUB %%ZPORFS %ZPORFS %%ZPORFSX
  %ZPORFSX %%ZPOSV %ZPOSV %%ZPOSVX %ZPOSVX %%ZPOSVXX %ZPOSVXX %%ZPOTF2 %ZPOTF2
  %%ZPOTRF %ZPOTRF %%ZPOTRF2 %ZPOTRF2 %%ZPOTRI %ZPOTRI %%ZPOTRS %ZPOTRS
  %%ZPPCON %ZPPCON %%ZPPEQU %ZPPEQU %%ZPPRFS %ZPPRFS %%ZPPSV %ZPPSV %%ZPPSVX
  %ZPPSVX %%ZPPTRF %ZPPTRF %%ZPPTRI %ZPPTRI %%ZPPTRS %ZPPTRS %%ZPSTF2 %ZPSTF2
  %%ZPSTRF %ZPSTRF %%ZPTCON %ZPTCON %%ZPTEQR %ZPTEQR %%ZPTRFS %ZPTRFS %%ZPTSV
  %ZPTSV %%ZPTSVX %ZPTSVX %%ZPTTRF %ZPTTRF %%ZPTTRS %ZPTTRS %%ZPTTS2 %ZPTTS2
  %%ZROT %ZROT %%ZSPCON %ZSPCON %%ZSPMV %ZSPMV %%ZSPR %ZSPR %%ZSPRFS %ZSPRFS
  %%ZSPSV %ZSPSV %%ZSPSVX %ZSPSVX %%ZSPTRF %ZSPTRF %%ZSPTRI %ZSPTRI %%ZSPTRS
  %ZSPTRS %%ZSTEDC %ZSTEDC %%ZSTEGR %ZSTEGR %%ZSTEIN %ZSTEIN %%ZSTEMR %ZSTEMR
  %%ZSTEQR %ZSTEQR %%ZSYCON %ZSYCON %%ZSYCON_3 %ZSYCON_3 %%ZSYCON_ROOK
  %ZSYCON_ROOK %%ZSYCONV %ZSYCONV %%ZSYCONVF %ZSYCONVF %%ZSYCONVF_ROOK
  %ZSYCONVF_ROOK %%ZSYEQUB %ZSYEQUB %%ZSYMV %ZSYMV %%ZSYR %ZSYR %%ZSYRFS
  %ZSYRFS %%ZSYRFSX %ZSYRFSX %%ZSYSV %ZSYSV %%ZSYSV_AA %ZSYSV_AA
  %%ZSYSV_AA_2STAGE %ZSYSV_AA_2STAGE %%ZSYSV_RK %ZSYSV_RK %%ZSYSV_ROOK
  %ZSYSV_ROOK %%ZSYSVX %ZSYSVX %%ZSYSVXX %ZSYSVXX %%ZSYSWAPR %ZSYSWAPR %%ZSYTF2
  %ZSYTF2 %%ZSYTF2_RK %ZSYTF2_RK %%ZSYTF2_ROOK %ZSYTF2_ROOK %%ZSYTRF %ZSYTRF
  %%ZSYTRF_AA %ZSYTRF_AA %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE %%ZSYTRF_RK
  %ZSYTRF_RK %%ZSYTRF_ROOK %ZSYTRF_ROOK %%ZSYTRI %ZSYTRI %%ZSYTRI2 %ZSYTRI2
  %%ZSYTRI2X %ZSYTRI2X %%ZSYTRI_3 %ZSYTRI_3 %%ZSYTRI_3X %ZSYTRI_3X
  %%ZSYTRI_ROOK %ZSYTRI_ROOK %%ZSYTRS %ZSYTRS %%ZSYTRS2 %ZSYTRS2 %%ZSYTRS_3
  %ZSYTRS_3 %%ZSYTRS_AA %ZSYTRS_AA %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE
  %%ZSYTRS_ROOK %ZSYTRS_ROOK %%ZTBCON %ZTBCON %%ZTBRFS %ZTBRFS %%ZTBTRS %ZTBTRS
  %%ZTFSM %ZTFSM %%ZTFTRI %ZTFTRI %%ZTFTTP %ZTFTTP %%ZTFTTR %ZTFTTR %%ZTGEVC
  %ZTGEVC %%ZTGEX2 %ZTGEX2 %%ZTGEXC %ZTGEXC %%ZTGSEN %ZTGSEN %%ZTGSJA %ZTGSJA
  %%ZTGSNA %ZTGSNA %%ZTGSY2 %ZTGSY2 %%ZTGSYL %ZTGSYL %%ZTPCON %ZTPCON %%ZTPLQT
  %ZTPLQT %%ZTPLQT2 %ZTPLQT2 %%ZTPMLQT %ZTPMLQT %%ZTPMQRT %ZTPMQRT %%ZTPQRT
  %ZTPQRT %%ZTPQRT2 %ZTPQRT2 %%ZTPRFB %ZTPRFB %%ZTPRFS %ZTPRFS %%ZTPTRI %ZTPTRI
  %%ZTPTRS %ZTPTRS %%ZTPTTF %ZTPTTF %%ZTPTTR %ZTPTTR %%ZTRCON %ZTRCON %%ZTREVC
  %ZTREVC %%ZTREVC3 %ZTREVC3 %%ZTREXC %ZTREXC %%ZTRRFS %ZTRRFS %%ZTRSEN %ZTRSEN
  %%ZTRSNA %ZTRSNA %%ZTRSYL %ZTRSYL %%ZTRTI2 %ZTRTI2 %%ZTRTRI %ZTRTRI %%ZTRTRS
  %ZTRTRS %%ZTRTTF %ZTRTTF %%ZTRTTP %ZTRTTP %%ZTZRZF %ZTZRZF %%ZUNBDB %ZUNBDB
  %%ZUNBDB1 %ZUNBDB1 %%ZUNBDB2 %ZUNBDB2 %%ZUNBDB3 %ZUNBDB3 %%ZUNBDB4 %ZUNBDB4
  %%ZUNBDB5 %ZUNBDB5 %%ZUNBDB6 %ZUNBDB6 %%ZUNCSD %ZUNCSD %%ZUNCSD2BY1
  %ZUNCSD2BY1 %%ZUNG2L %ZUNG2L %%ZUNG2R %ZUNG2R %%ZUNGBR %ZUNGBR %%ZUNGHR
  %ZUNGHR %%ZUNGL2 %ZUNGL2 %%ZUNGLQ %ZUNGLQ %%ZUNGQL %ZUNGQL %%ZUNGQR %ZUNGQR
  %%ZUNGR2 %ZUNGR2 %%ZUNGRQ %ZUNGRQ %%ZUNGTR %ZUNGTR %%ZUNM22 %ZUNM22 %%ZUNM2L
  %ZUNM2L %%ZUNM2R %ZUNM2R %%ZUNMBR %ZUNMBR %%ZUNMHR %ZUNMHR %%ZUNML2 %ZUNML2
  %%ZUNMLQ %ZUNMLQ %%ZUNMQL %ZUNMQL %%ZUNMQR %ZUNMQR %%ZUNMR2 %ZUNMR2 %%ZUNMR3
  %ZUNMR3 %%ZUNMRQ %ZUNMRQ %%ZUNMRZ %ZUNMRZ %%ZUNMTR %ZUNMTR %%ZUPGTR %ZUPGTR
  %%ZUPMTR %ZUPMTR))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("ZLANHF" "zlanhf_" %%ZLANHF %ZLANHF)
                      ("ZLANHP" "zlanhp_" %%ZLANHP %ZLANHP)
                      ("ZLANHS" "zlanhs_" %%ZLANHS %ZLANHS)
                      ("ZLANHT" "zlanht_" %%ZLANHT %ZLANHT)
                      ("ZLANSB" "zlansb_" %%ZLANSB %ZLANSB)
                      ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP)
                      ("ZLANSY" "zlansy_" %%ZLANSY %ZLANSY)
                      ("ZLANTB" "zlantb_" %%ZLANTB %ZLANTB)
                      ("ZLANTP" "zlantp_" %%ZLANTP %ZLANTP)
                      ("ZLANTR" "zlantr_" %%ZLANTR %ZLANTR)
                      ("ZLAPLL" "zlapll_" %%ZLAPLL %ZLAPLL)
                      ("ZLAPMR" "zlapmr_" %%ZLAPMR %ZLAPMR)
                      ("ZLAPMT" "zlapmt_" %%ZLAPMT %ZLAPMT)
                      ("ZLAQGB" "zlaqgb_" %%ZLAQGB %ZLAQGB)
                      ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE)
                      ("ZLAQHB" "zlaqhb_" %%ZLAQHB %ZLAQHB)
                      ("ZLAQHE" "zlaqhe_" %%ZLAQHE %ZLAQHE)
                      ("ZLAQHP" "zlaqhp_" %%ZLAQHP %ZLAQHP)
                      ("ZLAQP2" "zlaqp2_" %%ZLAQP2 %ZLAQP2)
                      ("ZLAQPS" "zlaqps_" %%ZLAQPS %ZLAQPS)
                      ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0)
                      ("ZLAQR1" "zlaqr1_" %%ZLAQR1 %ZLAQR1)
                      ("ZLAQR2" "zlaqr2_" %%ZLAQR2 %ZLAQR2)
                      ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3)
                      ("ZLAQR4" "zlaqr4_" %%ZLAQR4 %ZLAQR4)
                      ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5)
                      ("ZLAQSB" "zlaqsb_" %%ZLAQSB %ZLAQSB)
                      ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP)
                      ("ZLAQSY" "zlaqsy_" %%ZLAQSY %ZLAQSY)
                      ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V)
                      ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V)
                      ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM)
                      ("ZLARF" "zlarf_" %%ZLARF %ZLARF)
                      ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB)
                      ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG)
                      ("ZLARFGP" "zlarfgp_" %%ZLARFGP %ZLARFGP)
                      ("ZLARFT" "zlarft_" %%ZLARFT %ZLARFT)
                      ("ZLARFX" "zlarfx_" %%ZLARFX %ZLARFX)
                      ("ZLARFY" "zlarfy_" %%ZLARFY %ZLARFY)
                      ("ZLARGV" "zlargv_" %%ZLARGV %ZLARGV)
                      ("ZLARNV" "zlarnv_" %%ZLARNV %ZLARNV)
                      ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV)
                      ("ZLARSCL2" "zlarscl2_" %%ZLARSCL2 %ZLARSCL2)
                      ("ZLARTG" "zlartg_" %%ZLARTG %ZLARTG)
                      ("ZLARTV" "zlartv_" %%ZLARTV %ZLARTV)
                      ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ)
                      ("ZLARZB" "zlarzb_" %%ZLARZB %ZLARZB)
                      ("ZLARZT" "zlarzt_" %%ZLARZT %ZLARZT)
                      ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL)
                      ("ZLASCL2" "zlascl2_" %%ZLASCL2 %ZLASCL2)
                      ("ZLASET" "zlaset_" %%ZLASET %ZLASET)
                      ("ZLASR" "zlasr_" %%ZLASR %ZLASR)
                      ("ZLASSQ" "zlassq_" %%ZLASSQ %ZLASSQ)
                      ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ %ZLASWLQ)
                      ("ZLASWP" "zlaswp_" %%ZLASWP %ZLASWP)
                      ("ZLASYF" "zlasyf_" %%ZLASYF %ZLASYF)
                      ("ZLASYF_AA" "zlasyf_aa_" %%ZLASYF_AA %ZLASYF_AA)
                      ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK %ZLASYF_RK)
                      ("ZLASYF_ROOK" "zlasyf_rook_" %%ZLASYF_ROOK %ZLASYF_ROOK)
                      ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C)
                      ("ZLATBS" "zlatbs_" %%ZLATBS %ZLATBS)
                      ("ZLATDF" "zlatdf_" %%ZLATDF %ZLATDF)
                      ("ZLATPS" "zlatps_" %%ZLATPS %ZLATPS)
                      ("ZLATRD" "zlatrd_" %%ZLATRD %ZLATRD)
                      ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS)
                      ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ)
                      ("ZLATSQR" "zlatsqr_" %%ZLATSQR %ZLATSQR)
                      ("ZLAUU2" "zlauu2_" %%ZLAUU2 %ZLAUU2)
                      ("ZLAUUM" "zlauum_" %%ZLAUUM %ZLAUUM)
                      ("ZPBCON" "zpbcon_" %%ZPBCON %ZPBCON)
                      ("ZPBEQU" "zpbequ_" %%ZPBEQU %ZPBEQU)
                      ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS)
                      ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF)
                      ("ZPBSV" "zpbsv_" %%ZPBSV %ZPBSV)
                      ("ZPBSVX" "zpbsvx_" %%ZPBSVX %ZPBSVX)
                      ("ZPBTF2" "zpbtf2_" %%ZPBTF2 %ZPBTF2)
                      ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF)
                      ("ZPBTRS" "zpbtrs_" %%ZPBTRS %ZPBTRS)
                      ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF)
                      ("ZPFTRI" "zpftri_" %%ZPFTRI %ZPFTRI)
                      ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS)
                      ("ZPOCON" "zpocon_" %%ZPOCON %ZPOCON)
                      ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU)
                      ("ZPOEQUB" "zpoequb_" %%ZPOEQUB %ZPOEQUB)
                      ("ZPORFS" "zporfs_" %%ZPORFS %ZPORFS)
                      ("ZPORFSX" "zporfsx_" %%ZPORFSX %ZPORFSX)
                      ("ZPOSV" "zposv_" %%ZPOSV %ZPOSV)
                      ("ZPOSVX" "zposvx_" %%ZPOSVX %ZPOSVX)
                      ("ZPOSVXX" "zposvxx_" %%ZPOSVXX %ZPOSVXX)
                      ("ZPOTF2" "zpotf2_" %%ZPOTF2 %ZPOTF2)
                      ("ZPOTRF" "zpotrf_" %%ZPOTRF %ZPOTRF)
                      ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 %ZPOTRF2)
                      ("ZPOTRI" "zpotri_" %%ZPOTRI %ZPOTRI)
                      ("ZPOTRS" "zpotrs_" %%ZPOTRS %ZPOTRS)
                      ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON)
                      ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU)
                      ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS)
                      ("ZPPSV" "zppsv_" %%ZPPSV %ZPPSV)
                      ("ZPPSVX" "zppsvx_" %%ZPPSVX %ZPPSVX)
                      ("ZPPTRF" "zpptrf_" %%ZPPTRF %ZPPTRF)
                      ("ZPPTRI" "zpptri_" %%ZPPTRI %ZPPTRI)
                      ("ZPPTRS" "zpptrs_" %%ZPPTRS %ZPPTRS)
                      ("ZPSTF2" "zpstf2_" %%ZPSTF2 %ZPSTF2)
                      ("ZPSTRF" "zpstrf_" %%ZPSTRF %ZPSTRF)
                      ("ZPTCON" "zptcon_" %%ZPTCON %ZPTCON)
                      ("ZPTEQR" "zpteqr_" %%ZPTEQR %ZPTEQR)
                      ("ZPTRFS" "zptrfs_" %%ZPTRFS %ZPTRFS)
                      ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV)
                      ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX)
                      ("ZPTTRF" "zpttrf_" %%ZPTTRF %ZPTTRF)
                      ("ZPTTRS" "zpttrs_" %%ZPTTRS %ZPTTRS)
                      ("ZPTTS2" "zptts2_" %%ZPTTS2 %ZPTTS2)
                      ("ZROT" "zrot_" %%ZROT %ZROT)
                      ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON)
                      ("ZSPMV" "zspmv_" %%ZSPMV %ZSPMV)
                      ("ZSPR" "zspr_" %%ZSPR %ZSPR)
                      ("ZSPRFS" "zsprfs_" %%ZSPRFS %ZSPRFS)
                      ("ZSPSV" "zspsv_" %%ZSPSV %ZSPSV)
                      ("ZSPSVX" "zspsvx_" %%ZSPSVX %ZSPSVX)
                      ("ZSPTRF" "zsptrf_" %%ZSPTRF %ZSPTRF)
                      ("ZSPTRI" "zsptri_" %%ZSPTRI %ZSPTRI)
                      ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS)
                      ("ZSTEDC" "zstedc_" %%ZSTEDC %ZSTEDC)
                      ("ZSTEGR" "zstegr_" %%ZSTEGR %ZSTEGR)
                      ("ZSTEIN" "zstein_" %%ZSTEIN %ZSTEIN)
                      ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR)
                      ("ZSTEQR" "zsteqr_" %%ZSTEQR %ZSTEQR)
                      ("ZSYCON" "zsycon_" %%ZSYCON %ZSYCON)
                      ("ZSYCON_3" "zsycon_3_" %%ZSYCON_3 %ZSYCON_3)
                      ("ZSYCON_ROOK" "zsycon_rook_" %%ZSYCON_ROOK %ZSYCON_ROOK)
                      ("ZSYCONV" "zsyconv_" %%ZSYCONV %ZSYCONV)
                      ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF %ZSYCONVF)
                      ("ZSYCONVF_ROOK" "zsyconvf_rook_" %%ZSYCONVF_ROOK
                       %ZSYCONVF_ROOK)
                      ("ZSYEQUB" "zsyequb_" %%ZSYEQUB %ZSYEQUB)
                      ("ZSYMV" "zsymv_" %%ZSYMV %ZSYMV)
                      ("ZSYR" "zsyr_" %%ZSYR %ZSYR)
                      ("ZSYRFS" "zsyrfs_" %%ZSYRFS %ZSYRFS)
                      ("ZSYRFSX" "zsyrfsx_" %%ZSYRFSX %ZSYRFSX)
                      ("ZSYSV" "zsysv_" %%ZSYSV %ZSYSV)
                      ("ZSYSV_AA" "zsysv_aa_" %%ZSYSV_AA %ZSYSV_AA)
                      ("ZSYSV_AA_2STAGE" "zsysv_aa_2stage_" %%ZSYSV_AA_2STAGE
                       %ZSYSV_AA_2STAGE)
                      ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK %ZSYSV_RK)
                      ("ZSYSV_ROOK" "zsysv_rook_" %%ZSYSV_ROOK %ZSYSV_ROOK)
                      ("ZSYSVX" "zsysvx_" %%ZSYSVX %ZSYSVX)
                      ("ZSYSVXX" "zsysvxx_" %%ZSYSVXX %ZSYSVXX)
                      ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR %ZSYSWAPR)
                      ("ZSYTF2" "zsytf2_" %%ZSYTF2 %ZSYTF2)
                      ("ZSYTF2_RK" "zsytf2_rk_" %%ZSYTF2_RK %ZSYTF2_RK)
                      ("ZSYTF2_ROOK" "zsytf2_rook_" %%ZSYTF2_ROOK %ZSYTF2_ROOK)
                      ("ZSYTRF" "zsytrf_" %%ZSYTRF %ZSYTRF)
                      ("ZSYTRF_AA" "zsytrf_aa_" %%ZSYTRF_AA %ZSYTRF_AA)
                      ("ZSYTRF_AA_2STAGE" "zsytrf_aa_2stage_"
                       %%ZSYTRF_AA_2STAGE %ZSYTRF_AA_2STAGE)
                      ("ZSYTRF_RK" "zsytrf_rk_" %%ZSYTRF_RK %ZSYTRF_RK)
                      ("ZSYTRF_ROOK" "zsytrf_rook_" %%ZSYTRF_ROOK %ZSYTRF_ROOK)
                      ("ZSYTRI" "zsytri_" %%ZSYTRI %ZSYTRI)
                      ("ZSYTRI2" "zsytri2_" %%ZSYTRI2 %ZSYTRI2)
                      ("ZSYTRI2X" "zsytri2x_" %%ZSYTRI2X %ZSYTRI2X)
                      ("ZSYTRI_3" "zsytri_3_" %%ZSYTRI_3 %ZSYTRI_3)
                      ("ZSYTRI_3X" "zsytri_3x_" %%ZSYTRI_3X %ZSYTRI_3X)
                      ("ZSYTRI_ROOK" "zsytri_rook_" %%ZSYTRI_ROOK %ZSYTRI_ROOK)
                      ("ZSYTRS" "zsytrs_" %%ZSYTRS %ZSYTRS)
                      ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 %ZSYTRS2)
                      ("ZSYTRS_3" "zsytrs_3_" %%ZSYTRS_3 %ZSYTRS_3)
                      ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA %ZSYTRS_AA)
                      ("ZSYTRS_AA_2STAGE" "zsytrs_aa_2stage_"
                       %%ZSYTRS_AA_2STAGE %ZSYTRS_AA_2STAGE)
                      ("ZSYTRS_ROOK" "zsytrs_rook_" %%ZSYTRS_ROOK %ZSYTRS_ROOK)
                      ("ZTBCON" "ztbcon_" %%ZTBCON %ZTBCON)
                      ("ZTBRFS" "ztbrfs_" %%ZTBRFS %ZTBRFS)
                      ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS)
                      ("ZTFSM" "ztfsm_" %%ZTFSM %ZTFSM)
                      ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI)
                      ("ZTFTTP" "ztfttp_" %%ZTFTTP %ZTFTTP)
                      ("ZTFTTR" "ztfttr_" %%ZTFTTR %ZTFTTR)
                      ("ZTGEVC" "ztgevc_" %%ZTGEVC %ZTGEVC)
                      ("ZTGEX2" "ztgex2_" %%ZTGEX2 %ZTGEX2)
                      ("ZTGEXC" "ztgexc_" %%ZTGEXC %ZTGEXC)
                      ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN)
                      ("ZTGSJA" "ztgsja_" %%ZTGSJA %ZTGSJA)
                      ("ZTGSNA" "ztgsna_" %%ZTGSNA %ZTGSNA)
                      ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2)
                      ("ZTGSYL" "ztgsyl_" %%ZTGSYL %ZTGSYL)
                      ("ZTPCON" "ztpcon_" %%ZTPCON %ZTPCON)
                      ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT)
                      ("ZTPLQT2" "ztplqt2_" %%ZTPLQT2 %ZTPLQT2)
                      ("ZTPMLQT" "ztpmlqt_" %%ZTPMLQT %ZTPMLQT)
                      ("ZTPMQRT" "ztpmqrt_" %%ZTPMQRT %ZTPMQRT)
                      ("ZTPQRT" "ztpqrt_" %%ZTPQRT %ZTPQRT)
                      ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 %ZTPQRT2)
                      ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB)
                      ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS)
                      ("ZTPTRI" "ztptri_" %%ZTPTRI %ZTPTRI)
                      ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS)
                      ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF)
                      ("ZTPTTR" "ztpttr_" %%ZTPTTR %ZTPTTR)
                      ("ZTRCON" "ztrcon_" %%ZTRCON %ZTRCON)
                      ("ZTREVC" "ztrevc_" %%ZTREVC %ZTREVC)
                      ("ZTREVC3" "ztrevc3_" %%ZTREVC3 %ZTREVC3)
                      ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC)
                      ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS)
                      ("ZTRSEN" "ztrsen_" %%ZTRSEN %ZTRSEN)
                      ("ZTRSNA" "ztrsna_" %%ZTRSNA %ZTRSNA)
                      ("ZTRSYL" "ztrsyl_" %%ZTRSYL %ZTRSYL)
                      ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2)
                      ("ZTRTRI" "ztrtri_" %%ZTRTRI %ZTRTRI)
                      ("ZTRTRS" "ztrtrs_" %%ZTRTRS %ZTRTRS)
                      ("ZTRTTF" "ztrttf_" %%ZTRTTF %ZTRTTF)
                      ("ZTRTTP" "ztrttp_" %%ZTRTTP %ZTRTTP)
                      ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF)
                      ("ZUNBDB" "zunbdb_" %%ZUNBDB %ZUNBDB)
                      ("ZUNBDB1" "zunbdb1_" %%ZUNBDB1 %ZUNBDB1)
                      ("ZUNBDB2" "zunbdb2_" %%ZUNBDB2 %ZUNBDB2)
                      ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 %ZUNBDB3)
                      ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 %ZUNBDB4)
                      ("ZUNBDB5" "zunbdb5_" %%ZUNBDB5 %ZUNBDB5)
                      ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 %ZUNBDB6)
                      ("ZUNCSD" "zuncsd_" %%ZUNCSD %ZUNCSD)
                      ("ZUNCSD2BY1" "zuncsd2by1_" %%ZUNCSD2BY1 %ZUNCSD2BY1)
                      ("ZUNG2L" "zung2l_" %%ZUNG2L %ZUNG2L)
                      ("ZUNG2R" "zung2r_" %%ZUNG2R %ZUNG2R)
                      ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR)
                      ("ZUNGHR" "zunghr_" %%ZUNGHR %ZUNGHR)
                      ("ZUNGL2" "zungl2_" %%ZUNGL2 %ZUNGL2)
                      ("ZUNGLQ" "zunglq_" %%ZUNGLQ %ZUNGLQ)
                      ("ZUNGQL" "zungql_" %%ZUNGQL %ZUNGQL)
                      ("ZUNGQR" "zungqr_" %%ZUNGQR %ZUNGQR)
                      ("ZUNGR2" "zungr2_" %%ZUNGR2 %ZUNGR2)
                      ("ZUNGRQ" "zungrq_" %%ZUNGRQ %ZUNGRQ)
                      ("ZUNGTR" "zungtr_" %%ZUNGTR %ZUNGTR)
                      ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22)
                      ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L)
                      ("ZUNM2R" "zunm2r_" %%ZUNM2R %ZUNM2R)
                      ("ZUNMBR" "zunmbr_" %%ZUNMBR %ZUNMBR)
                      ("ZUNMHR" "zunmhr_" %%ZUNMHR %ZUNMHR)
                      ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2)
                      ("ZUNMLQ" "zunmlq_" %%ZUNMLQ %ZUNMLQ)
                      ("ZUNMQL" "zunmql_" %%ZUNMQL %ZUNMQL)
                      ("ZUNMQR" "zunmqr_" %%ZUNMQR %ZUNMQR)
                      ("ZUNMR2" "zunmr2_" %%ZUNMR2 %ZUNMR2)
                      ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3)
                      ("ZUNMRQ" "zunmrq_" %%ZUNMRQ %ZUNMRQ)
                      ("ZUNMRZ" "zunmrz_" %%ZUNMRZ %ZUNMRZ)
                      ("ZUNMTR" "zunmtr_" %%ZUNMTR %ZUNMTR)
                      ("ZUPGTR" "zupgtr_" %%ZUPGTR %ZUPGTR)
                      ("ZUPMTR" "zupmtr_" %%ZUPMTR %ZUPMTR)))

(COMMON-LISP:EXPORT
 '(%ZLANHF %ZLANHP %ZLANHS %ZLANHT %ZLANSB %ZLANSP %ZLANSY %ZLANTB %ZLANTP
           %ZLANTR %ZLAPLL %ZLAPMR %ZLAPMT %ZLAQGB %ZLAQGE %ZLAQHB %ZLAQHE
           %ZLAQHP %ZLAQP2 %ZLAQPS %ZLAQR0 %ZLAQR1 %ZLAQR2 %ZLAQR3 %ZLAQR4
           %ZLAQR5 %ZLAQSB %ZLAQSP %ZLAQSY %ZLAR1V %ZLAR2V %ZLARCM %ZLARF
           %ZLARFB %ZLARFG %ZLARFGP %ZLARFT %ZLARFX %ZLARFY %ZLARGV %ZLARNV
           %ZLARRV %ZLARSCL2 %ZLARTG %ZLARTV %ZLARZ %ZLARZB %ZLARZT %ZLASCL
           %ZLASCL2 %ZLASET %ZLASR %ZLASSQ %ZLASWLQ %ZLASWP %ZLASYF %ZLASYF_AA
           %ZLASYF_RK %ZLASYF_ROOK %ZLAT2C %ZLATBS %ZLATDF %ZLATPS %ZLATRD
           %ZLATRS %ZLATRZ %ZLATSQR %ZLAUU2 %ZLAUUM %ZPBCON %ZPBEQU %ZPBRFS
           %ZPBSTF %ZPBSV %ZPBSVX %ZPBTF2 %ZPBTRF %ZPBTRS %ZPFTRF %ZPFTRI
           %ZPFTRS %ZPOCON %ZPOEQU %ZPOEQUB %ZPORFS %ZPORFSX %ZPOSV %ZPOSVX
           %ZPOSVXX %ZPOTF2 %ZPOTRF %ZPOTRF2 %ZPOTRI %ZPOTRS %ZPPCON %ZPPEQU
           %ZPPRFS %ZPPSV %ZPPSVX %ZPPTRF %ZPPTRI %ZPPTRS %ZPSTF2 %ZPSTRF
           %ZPTCON %ZPTEQR %ZPTRFS %ZPTSV %ZPTSVX %ZPTTRF %ZPTTRS %ZPTTS2 %ZROT
           %ZSPCON %ZSPMV %ZSPR %ZSPRFS %ZSPSV %ZSPSVX %ZSPTRF %ZSPTRI %ZSPTRS
           %ZSTEDC %ZSTEGR %ZSTEIN %ZSTEMR %ZSTEQR %ZSYCON %ZSYCON_3
           %ZSYCON_ROOK %ZSYCONV %ZSYCONVF %ZSYCONVF_ROOK %ZSYEQUB %ZSYMV %ZSYR
           %ZSYRFS %ZSYRFSX %ZSYSV %ZSYSV_AA %ZSYSV_AA_2STAGE %ZSYSV_RK
           %ZSYSV_ROOK %ZSYSVX %ZSYSVXX %ZSYSWAPR %ZSYTF2 %ZSYTF2_RK
           %ZSYTF2_ROOK %ZSYTRF %ZSYTRF_AA %ZSYTRF_AA_2STAGE %ZSYTRF_RK
           %ZSYTRF_ROOK %ZSYTRI %ZSYTRI2 %ZSYTRI2X %ZSYTRI_3 %ZSYTRI_3X
           %ZSYTRI_ROOK %ZSYTRS %ZSYTRS2 %ZSYTRS_3 %ZSYTRS_AA %ZSYTRS_AA_2STAGE
           %ZSYTRS_ROOK %ZTBCON %ZTBRFS %ZTBTRS %ZTFSM %ZTFTRI %ZTFTTP %ZTFTTR
           %ZTGEVC %ZTGEX2 %ZTGEXC %ZTGSEN %ZTGSJA %ZTGSNA %ZTGSY2 %ZTGSYL
           %ZTPCON %ZTPLQT %ZTPLQT2 %ZTPMLQT %ZTPMQRT %ZTPQRT %ZTPQRT2 %ZTPRFB
           %ZTPRFS %ZTPTRI %ZTPTRS %ZTPTTF %ZTPTTR %ZTRCON %ZTREVC %ZTREVC3
           %ZTREXC %ZTRRFS %ZTRSEN %ZTRSNA %ZTRSYL %ZTRTI2 %ZTRTRI %ZTRTRS
           %ZTRTTF %ZTRTTP %ZTZRZF %ZUNBDB %ZUNBDB1 %ZUNBDB2 %ZUNBDB3 %ZUNBDB4
           %ZUNBDB5 %ZUNBDB6 %ZUNCSD %ZUNCSD2BY1 %ZUNG2L %ZUNG2R %ZUNGBR
           %ZUNGHR %ZUNGL2 %ZUNGLQ %ZUNGQL %ZUNGQR %ZUNGR2 %ZUNGRQ %ZUNGTR
           %ZUNM22 %ZUNM2L %ZUNM2R %ZUNMBR %ZUNMHR %ZUNML2 %ZUNMLQ %ZUNMQL
           %ZUNMQR %ZUNMR2 %ZUNMR3 %ZUNMRQ %ZUNMRZ %ZUNMTR %ZUPGTR %ZUPMTR)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
